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CONCURSO CALC RESULT 


Las hojas de trabajo ofrecen 
elevadas posibilidades 
de utilización. 
Sin embargo, creemos que 
eii nuestro país todavía 
no se ha captado el enorme potencial 

que ofrecen. 
Por todo ello, 
COMMODORE MAGAZINE” convoca 

un concurso 
de aplicaciones desarrolladas 
bajo Calc Result, 
sean financieras, dietéticas, etc... 


UN PREMIO 

DE 80.000 PIAS 
EN MATERIAL 
COMMODORE 

a elegir por el ganador, espera a la aplicación más original 
y útil que envíen nuestros lectores. 


■ El fallo del concurso se 
publicará en el número 4 de 
nuestra revista. 

I Para participar se enviará una 
detallada descripción de los 
objetivos que pretende la 
aplicación y la metodología 
utilizada. 

I El premio podrá ser declarado 
desierto, prorrogando en 2 meses 
la aceptación de nuevas 
aplicaciones en tal caso. 


■ La aplicación premiada será 
publicada en forma de artículo. En 
caso de empate, el premio se 
dividirá en partes iguales entre los 
ganadores. 

I Los miembros del Jurado 
serán elegidos por “Commodore 
Magazine” entre cualificados 
profesionales que evaluarán la 
utilidad de la aplicación, 
siendo su 

decisión inapelable. 


■ La fecha tope para la 
admisión de aplicaciones es el 1 
de mayo de 1984. Todas las 
aplicaciones deben enviarse a: 


commodore 

_ MjCLgjazlru 

Cale Result 

“Commodore Magazine”, 

C/Bravo Murillo, 377. Madrid -20 
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Fútbol en casa. Un nuevo juego muy entretenido. Se puede 
jugar contra la máquina o con otra persona. Es el último 
grite) de Commodore v no tiene ninguna complicación. 


10 


Iniciación lenguaje máquina. El conjunto de instrucciones 
empleado por la familia 6500 es el punto de partida para 
todos aquellos que desean programar en lenguaje máqui¬ 


na. 
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S\ 64. Análisis del Commodore SX 64 portátil con todo 
incorporado. Es un ordenador transportable que Com¬ 
modore se decidió a incorporar la unidad de diskettes y el 
monitor de color. 


ES Programas. Los lectores siguen enviando programas y 
esta semana les ofrecemos por orden de aparición: Viaje 
Luna, Biorritmos, Cruz y carta, Matrices y determinantes, 
.loystick y Test. 

28 Crucero estelar. Un programa de simulación de vuelo en 
una nave estelar, muy conseguido e interesante. Es ideal 
para los enamorados del espacio sideral. 

38 Montaje RS 232 para Vic 20. El conocido interface RS 232 
que va a permitir entrar con el Vic 20 en el mundo de las 
comunicaciones, permitiendo el enlace con multitud de 
periféricos. 

44 Como diseñar juegos para Ordenador. Tercera parte de 
este ameno juego que nos introduce en la técnica de su 
desarrollo. 


56 La otra forma de leer el manual. En esta ocasión les ofre¬ 
cemos todo un conjunto de técnicas para ordenar datos 
incluyendo varios programas para su mejor comprensión. 

62 Dibuja como quieras. Repaso a las capacidades gráficas y 
de color del Vic 20 y del Commodore 64, para que no se 
resista ningún dibujo. 


Esta revista no mantiene relación de dependencia de ningún 
tipo con respecto de los fabricantes de ordenadores Commo¬ 
dore Business Machines ni de sus representantes. 
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Los lecientes cambios en la directiva dé Commodore International no 
parece que vayan a producir sustanciales desvíos en la forma de operar 
de la compañía. Es más, el usuario se beneficiará de un aumento en la 
gama de productos ofertados. Ya se habla de una nueva familia de 
ordenadores domésticos, la Commodore Plus 4, heredera directa del aun 
no comercializado 264. * -T- 

Recientemente la prensa económica se hacía eco de una serie de 
cambios en la plantilla de la compañía. En unos casos se ha debido a 
despidos, en otros a abandonos voluntarios. Se habla de hasta ocho altos 
ejecutivos, entre los que se incluyen cuatro vicepresidentes. Incluso 
parece ser queje ha marchado el propio hijo de Jack Tramiel. fundador 
de la compañía, Sam. No obstante, también hav acontecimientos 
interesantes. Los próximos días siete a nueve de junio' va a celebrarse en 
Londres el Quinto International Commodore Computer Show, feria a la 
que acuden todos aquellos que tienen algo que oíertar a los usuarios de 
la marca. Allí estará Commodore Magazine, como mero espectador, para 
contai os todo lo que de interés veamos. Los organizadores aseveran que 
podremos ver el C-16, que tuvimos ocasión de conocer en la Feria de 
Hannover, v los ordenadores Commodore Plus 4, incluso un nuevo 
conjunto de periféricos. El Show se divide en dos grandes secciones, la 
destinada a los sistemas destinados a la empresa y los negocios, y la 
informática doméstica y recreativa. También está anunciado que 
concurra Patrick Moore, para mostrarnos un sensacional programa de 
Astronomía para el 64. La red diseñada para unir varios "de estos 
modelos, la Compunet estará igualmente presente. Se anuncia una 
exposición de Alte poi Ordenador, trataremos de conseguir copias de 
algunos originales para publicación en nuestras páginas" 

En el piesente número os describimos un juego que servirá para 
hacernos pasar agradables horas, es el International Soccer. uno de los 
juegos más apasionantes que hemos visto para ordenadores personales. 

El ordenador transportable SX-64 es otro de los temas de portada 
elegidos, aunque en esencia es prácticamente un 64 , merecía la pena 
describir sus peculiaridades. 


La posibilidad de interfasar el Vic-20 con una impresora estándar 
RS232 nos ha parecido lo suficientemente atractiva, como para dedicarle 
la piimeia paite de una seiie de dos artículos, cuva terminación 
publicaremos en el siguiente mes. El número se completa con la segunda 
parte de la serie “La otra forma de leer el Manual del 64“ y, por 
supuesto, las secciones fijas de programas y concurso. 


Claves para introducir 
en el ordenador 
los programas que 
aparecen en la revista. 


COMO SE VE 

COMO SE TECLEA 

EFECTO CONSEGUIDO 

71 

SHIFT + CLR 

(LIMPIA PANTALLA) 

a 

CLR 

(HOME) 

» 

CRSR 

(CURSOR ABAJO) 

n 

SHIFT + CRSR 

(CURSOR ARRIBA) 

ii 

CRSR 

(CURSOR DERECHA) 

■i 

SHIFT + CRSR 

(CURSOR IZQUIERDA) 

■ 

CTRL + 1 

(NEGRO) 

a 

CTRL + 2 

(BLANCO) 

m 

CTRL + 3 

(ROJO) 

k 

CTRL + 4 

(CIAN) 

ü 

CTRL + 3 

(VIOLETA) 

Si 

CTRL + 6 

(VERDE) 

3 

CTRL + 7 

(AZUL) 

171 

CTRL + 8 

(AMARILLO) 

a 

CTRL + 3 

(CARACTER INVERSO) 

■ 

CTRL + 0 

(CARACTER NORMAL) 
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Software comentado 



PROGRAMA: SUPER SMASH 
TIPO: JUEGO 
DISTRIBUIDOR: 
MICROELECTRONICA Y 
CONTROL 

FORMATO: CARTUCHO 
COMPUTADOR: 
COMMODORE 64 CON 
P ADDLES 

Aunque en la portada de la 
caja, en la que se presenta el 
juego, aparezca un atlético tenis¬ 
ta insinuando un gran juego con 
gráficos increíbles, el juego en sí 
es el antiguo (si antiguo se le 
puede llamar a un juego con 6 6 7 
años) desenladrillador que no ha¬ 
ce demasiado tiempo jugamos en 
los bares. Básicamente consiste 
en un muro de ladrillos que 
tenemos que derribar usando una 
raqueta y una pelota. 

El cartucho se conecta bien (no 
se olvide de apagar antes el orde¬ 
nador si no quiere jugar al bom¬ 
bero-apaga-ordenadores) y el jue¬ 
go empieza automáticamente al 
encender la máquina, ofrecién¬ 
donos un menú con varios tipos 
de juego y la opción de uno o dos 



jugadores. Los tres juegos dispo¬ 
nibles son: Super Smash, que es el, 
juego descrito anteriormente, en 
él hay seis filas de ladrillos, cada 
una de un color y tenemos que 
derribarlos todos. En cualquiera 
de las tres opciones, cuando lla¬ 
guemos a la quinta fila, la bola se 
acelerará y si golpeamos la pared 
del fondo el tamaño de la raqueta 
disminuirá a la mitad. Aún así el 
juego resulta bastante fácil y las 
cinco pelotas de que disponemos 
resultan suficientes. El segundó 
juego es el denominado ESPE¬ 
CIAL, en el cual son tres bloques 
de ladrillos separados entre sí por 
huecos. Cuando la pelota se mete 
entre dos de ellos empieza a 
rebotar, dándonos una gran can- 
• 


tidad de puntos. La última va¬ 
riante es la PROGRESIVE, simi¬ 
lar en forma a la ESPECIAL, 
pero con la particularidad de que 
los ladrillos van avanzando poco 
a poco hacia nosotros. Las tres 

versiones son muy similares entre 

* 

sí, con las diferencias ya señala¬ 
das, por lo que decir que son tres 
juegos distintos como viene en el 
manual es algo exagerado. El 
juego viene presentado en una 
atractiva caja con un manual 
muy extenso (naturalmente en 
inglés), que aparte de las instruc¬ 
ciones en sí incluye unos consejos 
prácticos para obtener más pun¬ 
tos. Un defecto de este programa 
consiste en que utiliza paddles, 
accesorio que casi nadie tiene y 
que hará que su uso se veg. 
bastante restringido. 


PUNTUACION: 
ADICCION: 6 
PRESENTACION: 7 
GRAFICOS: 3 
ACCION: 4 



PROGRAMA: 

CUDDLYCUBURT 
TIPO: JUEGO 
DISTRIBUIDOR: 
INDESCOMP-ABC 
SOFT 

FORMATO: DISCO Y 
CASSETTE 
COMPUTADOR: 
COMMODORE 64 

Este juego sobre el que 
parece haber un litigio de 
propiedad, ya que lo distri¬ 
buyen dos casas distintas, está 
basado en un arcade game 
(juego de “marcianitos”) muy 
popular en las salas de juegos 
de Estados Unidos, aunque en 
España es desconocido, nos 
estamos refiriendo al Q-Bert 
del que es una copia casi 
exacta. 

Una vez puesto en marcha 
vemos una pirámide de gran¬ 
des dados y un curioso muñe¬ 
co (Cuddly Cuburt) que tiene 
que ir saltando de uno a otro, 
cada vez que salta encima de 
ino la parte superior del cubo 


cambiará a otro color, de¬ 
biendo hacer que cambie toda 
la pirámide a un color indica¬ 
do a la izquierda. La labor se 
ve complicada por diversos 
objetos que van apareciendo 
durante el juego (balones, 
serpientes) y que si le dan, le 
matan. Otra cosa que puede 
suceder es que se caiga por los 
bordes de la pirámide (que 
según parece está flotando en 
el vacío), con lo cual, además 
• de perder una vida perderá 

I todos los cubos que ya hubie¬ 
se pintado y tendrá que volver 
a empezar. Para ayudarle en 
su misión hay dos discos vo¬ 
lantes a ambos lados de la 
pirámide, si salta en ellos le 
conducirán a la parte superior 
de la pirámide, salvándole de 
cualquier peligro inmediato y 
si además era perseguido por 
la serpiente, caerá al vacío al 
intentar seguirle. Tenga cui¬ 
dado y no malgaste los discos, 
ya que una vez usados desa¬ 
parecen, úselos sólo en caso 


de extrema necesidad. El jue¬ 
go dispone de una gran canti¬ 
dad de niveles, que se van 
complicando sucesivamente, 
después del nivel cinco nece¬ 
sitaremos saltar más de una 
vez encima de cada cubo para 
cambiarlo al color que bus¬ 
camos. 

El juego aunque parece 
simple y sin interés en un 
principio, luego demuestra ser 
uno de los más divertidos que 
existen actualmente, requiere 
una gran habilidad y control, 
pues los saltos y desplaza¬ 
mientos se realizan en diago¬ 
nal y no en vertical y horizon¬ 
talmente como estamos acos¬ 
tumbrados. Por último, hay 
que señalar que se puede jugar 
con joystick o con teclado. 


PUNTUACION: 
ADICCION: 7 
PRESENTACION: 6 
GRAFICOS: 6 
ACCION: 6 





























































Una tarde lluviosa en la ciudad. 
Los dos equipos de fútbol con mayor 
rivalidad deportiva se disponen a salir 
al terreno de juego. La moneda es 
lanzada al aire y los hinchas, con su 
griterío, hacen que el estadio parezca 
venirse abajo. Sin embargo, nosotros 
no soportamos las inclemencias me¬ 
teorológicas, pero los nervios están a 
flor de piel. El resultado del partido 
dependerá en gran medida del resul¬ 
tado de nuestro juego. 

Aquel viejo sueño, de poder practi- 
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.di el fútbol, sin necesidad de salir de 
casa, se ha materializado en la reali¬ 
dad. Efectivamente, ya no es necesa- 
r. más que ser el feliz propietario de 
. ' CBM 64, para no conformarse 
simplemente con ver ganar o perder 
a. equipo favorito. A partir de ahora 
aremos nosotros quienes decidamos 
su futuro. Se acabaron los inútiles 
c ruejos, que a gritos, dábamos a los 
¿Canteros, desgañitándonos al com¬ 
probar que no podían oirlos. 

International Soccer es un cartucho 
de megos que ha puesto recientemen- 
:e Commodore en circulación. Su 
calidad gráfica está muy por encima 
de la media a que estamos acostum¬ 
brados. En realidad supera con mu¬ 
cho a los tradicionales juegos de 
marcianitos. Aunque la visualización 
en pantalla se efectúa, lógicamente, 
en dos dimensiones, el efecto del 
movimiento tridimensional está con¬ 
seguido con gran dosis de realismo. 

El juego está contenido en uno de 
esos tradicionales cartuchos que utili¬ 
za Commodore para empaquetar sus 
programas de estado sólido. Se co¬ 
necta al pon de expansión, dispuesto 
en la parte posterior del 64, teniendo 
mucho cuidado de que la alimenta¬ 
ción está desconectada. De lo contra¬ 
rio se podría dañar la circuitería del 
ordenador y el cartucho. Una vez 
hecho esto, se activa el conmutador 
de alimentación del 64, apareciendo 
en pantalla durante bastantes segun¬ 
dos la molesta publicidad del fabri¬ 
cante. Lo que ocurre a continuación, 
si no se presiona tecla alguna, es que 
comienza un pequeño turno demos- 
:rativo de las capacidades del juego. 

Las posibilidades de ese resumen 
en dos modos: contra el ordenador o 
contra un segundo oponente huma¬ 
no. El joystick, con su pulsador de 
disparo, es el complemento necesario 
p-ira evolucionar por el campo. En el 
segundo caso se precisan dos joystick , 
uno para cada equipo. 

Cuando se juega contra el ordena¬ 
dor. se puede elegir el nivel de dificul- 
;ac. en una escala de 1 a 9. La tecla de 
función F5 es la encargada de esta¬ 
blecerlo. El 9 es el grado de mayor 
aificultad, el que más emoción im¬ 
prime al juego. Por el contrario, el 1 
es el más simple, que nos servirá para 



familiarizarnos con las características 
del juego. 

Antes de comenzar existe la posibi¬ 
lidad de elegir el color de la camiseta 
a defender. Aparece la representación 
de dos jugadores en tamaño superior 
al normal. La tecla F1 se utiliza para 
ir cambiando el color del equipo que 
juegue a la izquierda de la pantalla, 
mientras que la F3 lo hace con el 
equipo de la derecha. Los colores a 
elegir son seis en total: amarillo, azul, 
rojo, naranja, blanco y gris. Cuando 
no se utiliza televisor *o monitor de 
color, puede ser eliminada la señal de 
color mediante la tecla F7, apare¬ 
ciendo más nítidos los jugadores al 
disponer solamente de la escala de 
grises, blanco y negro. 


El juego comienza, una vez elegi¬ 
dos los colores, cuando se presiona el 
botón de disparo del joystick. Los 
jugadores comienzan a salir de los 
vestuarios, por la parte superior cen¬ 
tral de la pantalla, al terreno de juego, 
representado con todo realismo, in¬ 
cluyéndose el verde césped y las líneas 
de demarcación. Una vez alineados 
los jugadores para comenzar a jugar, 
permanecen de pie, disciplinadamen¬ 
te, hasta que el árbitro (que nunca 
aparece en la pantalla) hace sonar 
nítidamente su silbato. Este es uno de 
los momentos de mayor emoción. 
Cada participante ejerce control ab¬ 
soluto sobre su equipo, con la ayuda 
del joystick correspondiente. Como es 
obvio, no se puede controlar a todos 
y cada uno de los jugadores con un 
solo joystick. Por lo tanto, se controla 
a un jugador. El jugador de cada 
equipo que está más próximo al balón 
es el que podemos controlar solida¬ 
riamente al movimiento de la palanca 
del joystick. Para que resulte fácil¬ 
mente identificable de quien se trata, 
el color de la camiseta de ese jugador 
aparece en el mismo color elegido, 
pero en tono más claro. De todas 
maneras, es sorprendente comprobar 
como el jugador se desplaza en las 




























cuatro direcciones por toda la panta¬ 
lla, con lo que el efecto tridimensional 
de movimiento es francamente asom¬ 
broso. En otras palabras, se le puede 
dirigir hacia la izquierda, la derecha, 
hacia delante y atrás, pudiendo com¬ 
binarse hasta dos de estas posibili¬ 
dades para el movimiento en dia¬ 
gonal. 

Hacer que el jugador "chute” no es 
cuestión más que de apretar el botón 
de disparo. La pelota saldrá dispara¬ 
da, observando su normal trayectoria 
parabólica. Otro de los efectos logra¬ 
dos a la perfección es la sombra 
producida por la pelota, cuando vue¬ 
la, sobre el césped. El efecto de 
realidad creado es un absoluto logro. 

También hay mucho que decir de 
los jugadores, son verdaderos profe¬ 
sionales, capaces de hacer jugadas y 
remates de cabeza, dribblings y toda 
una suerte de jugadas de regate del 
balón. Los corners también son lan¬ 
zados con gran maestría, y que decir 
de los fuera de banda. Aquí no hay 
duda, el mejor juez de línea es el 
propio ordenador, que mantiene en 
su memoria quien fue el último en 
tocar el balón. 

Los golpes son una auténtica goza¬ 
da, que como en los partidos reales, 
desatan el entusiasmo del público. 
Las gradas, abarrotadas, parecen ve¬ 
nirse abajo con cada gol. Puede verse 
a los aficionados moverse desenfre¬ 
nadamente, y el chip sintetizador de 
sonido produce una síntesis realista 
del griterío de la multitud. 

Para mayor deportividad de la 
competición, a este juego no se le ha 
dotado de faltas o de lanzamiento de 
almohadillas y botes de refresco al 
terreno de juego. 

Solamente se visualiza un trozo del 
campo simultáneamente, desplazán¬ 
dose esta porción a medida que el 
balón avanza (scrolling). Si el jugador 



que,podíamos controlar sale fuera de 
nuestro campo de visión, inmediata¬ 
mente es uno nuevo el que cambia el 
color de su camiseta. 

El desplazamiento de los jugadores 
por el campo no se produce siempre a 
la misma velocidad. Un jugador ha¬ 
ciendo dribbling va más despacio que 
otro sin balón. 

El portero se entrega igualmente a 
fondo en su tarea. Resulta gratifican¬ 
te verle saltar cuando le lanzan tre¬ 
mendos chutes. Muy al contrario de 
lo que pudiera parecer, es posible 
elaborar estrategias no se trata de un 
juego que lleva todas sus posibilida¬ 
des mecánicamente programadas, ni 
mucho menos. Cuando los dos parti¬ 
cipantes han desarrollado un deter¬ 
minado grado de maestría con el 
International Soccer, la semejanza 
con un partido de fútbol televisado es 
total. Este es uno de esos juegos 
capaces de crear adicción en los 
participantes. 

Como en los partidos clásicos, aquí 
también existen dos tiempos de juego, 
Commodore dice en el folleto explica¬ 
tivo que es de 200 unidades de tiempo 
cada mitad. 

El equipo más ofensivo, más exper¬ 


to y con más suerte, logra batir mayor 
número de veces la portería de su 
oponente. Claro, es lógico que la 
pericia del portero tenga mucho que 
decir. Al fin y al cabo este para los 
balones por indicación del pulsador 
de disparo del joysíick correspondien¬ 
te. 

Una vez concluido el partido, los 
jugadores del equipo ganador se vuel¬ 
ven a alinear, y una bella damisela 
vestida de largo les premia con la 
dorada Copa de Campeones. 

En resumen podemos decir que este 
cartucho exprime al máximo las ca¬ 
racterísticas gráficas y el control de 
sprites del Commodore 64, creando 
efectos tan realistas que a menudo se 
toma el juego como algo real. 
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CONCURSO MENSUAL DE COMMODORE MAGAZINE 


Su Programa Para Cualquier 

Sistema Commodore 
Puede Hacerle Ganar 5.ooo Ptas. 


E l presente 

CONCURSO ESTA 
ABIERTO A TODOS 
NUESTROS LECTORES 
Y SU PARTICIPACION 
E INSCRIPCION ES 
GRATUITA. 

LEA LAS BASES DEL 
CONCURSO 


■ NO SE ESTABLECEN LIMITACIONES 
EN CUANTO A EXTENSION. TEMA ELEGIDO 
O MODELO DE ORDENADOR 


■ LOS CONCURSANTES DEBERAN 
ENVIARNOS A LA DIRECCION QUE El GURA 
AL PIE. EL CASSETTE O DISKETTE 
CONTENIENDO EL PROGRAMA. UNA 
EXPLICACION DEL MISMO Y. 

AL SER POSIBLE. UN LISTADO EN PAPEL 
DE IMPRESORA. SE PODRAN ENVIAR 
TANTOS PROGRAMAS COMO SE DESEE 


■ LA DECISION SOBRE LA PUBLICACION 
O NO DE UN PROGRAMA CORRESPONDE 
UNICAMENTE AL JURADO NOMBRADO 
AL EFECTO POR “COMMODORE MAGAZINE". 
SIENDO SU FALLO INAPELABLE 


■ LOS CRITERIOS DE SELECCION 

SE BASARAN EN LA CREATIVIDAD DEL 

TEMA ELEGIDO Y LA ORIGINALIDAD 

Y O SENCILLEZ EN EL 

METODO DE PROGRAMACION GLOBAL 


■ LOS PROGRAMAS. PREVIA SELECCION. 
SERAN PUBLICADOS EN LA REVISTA. 
OBTENIENDO TODOS ELLOS f>.(MKl IT AS. 


■ ENVIAR A: 

CONCURSO COMMODORE MAGAZINE 



C/Bravo Murillo, 377. Madrid -20 
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Una de las cosas más antipáticas 
con las que se encuentra todo aquel 
que desea familiarizarse con el len¬ 
guaje máquina y los microprocesado¬ 
res es lo aburrido y tedioso de en¬ 
tender y memorizar lo relativo a los 
modos de direccionamiento. 

Si bien los hemos explicado en una 
ocasión anterior, no está de más 
redundar en ellos, pero con una 
óptica distinta. 

Lo más importante que aportan los 
microprocesadores, y por extensión 
los microordenadores v demás siste¬ 
mas informáticos, es la gran rapidez 
con la que pueden ejecutar cálculos. 
Una de las instrucciones más intere¬ 
santes es la comparación de datos, y 
la posterior toma de decisiones en 
función de ella. 

El 6500 dispone de un conjunto de 
14 instrucciones relacionadas con la 
comparación. Mediante ellas se pue¬ 
den comprobar los valores de los 
datos contenidos en el acumulador y 
los registros X e Y del microproce¬ 
sador. 

Cada una de las mencionadas ins¬ 
trucciones compara el contenido del 
registro elegido con el byte contenido 
en una dirección de memoria, especi¬ 
ficada en el operando de la instruc¬ 
ción. El resultado que produce es la 
alteración de determinados bits 
(flags) del registro de estado. 

Pasemos a enumerar cuáles son las 
comparaciones que afectan al acu¬ 
mulador en la figura 1. 

En realidad, todas estas instruccio¬ 
nes afectan únicamente a tres bits 
(flags) del registro de estado, que son 
el de signo cero y acarreo (N, Z, C). 

Analicemos lo que hace el micro- 
procesador cuando compara dos by- 
tess. Realmente, no hace otra cosa 
que ejecutar una sustracción del byte 
contenido en el operando al byte 
contenido en el acumulador. La utili¬ 
zación de CMP afecta a los siguientes 
flags del registro de estado: Z, que se 


pone a uno cuando el resultado de la 
comparación es igual: N se pone a 
uno o cero, según sea el resultado del 
bit de mayor peso del byte, v C que se 
pone a uno cuando el valor contenido 
en el operando es menor o igual que 
el acumulador. C se pone a cero si es 
mayor que el contenido del acumula¬ 


dor. El cuadro mostrado en la figura 
2 resume el comportamiento. 

La principal diferencia con otras 
operaciones, tal como pudiera ser la 
propia resta, es que el contenido del 
acumulador no resulta alterado como 
resultado de la comparación. Es más. 
que el acumulador permanezca inal- 
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irrado permite un elevado grado de 

. oííidad en la programación. 

En el cuadro 2 aparece el término 
' complemento a dos’ 1 . La mayoría de 

s microprocesadores, incluyéndose 
e. 6502, utilizan la notación conocida 
c mo sistema de numeración con 
c implemento a dos, para representar 
-:::a> afectadas de signo. Utilizando 
números escritos en forma binaria 
mediante ocho bits, el margen de 
\ alores va desde —128 hasta —1 y 
de-de cero hasta +127. 

Esto se debe a que el bit de mayor 
peso del bvte (el octavo) es quien 
u-:ablece el signo del número. Si este 
bit es cero, el número formado por 

- otros siete bits es positivo, de lo 
contrario es negativo. 

Para obtener el complemento a dos 
ce un número positivo, lo primero 
que hay que hacer es invertir todos 
.os bits (poner ceros donde había 
unos y viceversa) y después sumarle 
uno a este resultado inverso. 

El complemento a dos resulta ser 
mu\ útil en la aritmética binaria, más 
adelante veremos detalladamente su 
utilidad, pero por el momento nos 
c nformaremos con conocer su exis¬ 
tencia. 

La instrucción de comparación 
:rabaja siempre de la misa forma, 
independientemente del método de 
cireccionamiento empleado. Sin em¬ 
bargo, sería una operación inútil si no 
se pudiera hacer nada con los resulta¬ 
da - obtenidos con ella. 

Ei 6502 dispone de un conjunto de 
bifurcaciones condicionales, 
que son las que indica el cuadro de la 
figura 3. 

El operando de estas instrucciones 
ue bifurcación está compuesto por un 
>:bc bvte. Puede parecer chocante al 
c '■ pararlo con las instrucciones 
JMP > JSR, que pueden saltar sin 
;r problema a cualquiera de las 
-r, direcciones de la memoria indi¬ 


cada en los dos bytes que siguen a la 
instrucción. 

Al contrario de las otras instruc¬ 
ciones que implican bifurcación, las 
ocho especificadas en el cuadro 3 
emplean únicamente el modo de di- 
reccionamiento relativo, que sólo les 
permite saltar 128 bytes hacia atrás o 
127 hacia delante. Estas cifras y el 
sentido del salto probablemente nos 
recuerdan las reflexiones de cifras y 
signo que veíamos en el complemento 
a dos. En efecto, se trata de la misma 


cosa. Cuando utilizamos un ensam¬ 
blador para desarrollar nuestro pro¬ 
grama en lenguaje máquina, es aquel 
quien calcula el byte correspondiente 
al salto. Sin embargo, cuando pro¬ 
gramemos a las bravas, existe un 
pequeño truco que nos permite cal¬ 
cular el valor del byte. Simplemente 
contemos hacia atrás o delante el 
número de bytes que median entre el 
anterior a la instrucción de salto y la 
posición final. Si el salto es hacia 
atrás, comenzaremos con 255 restán¬ 
dole uno por byte. Si es hacia delante 
se le va sumando uno, partiendo de 
cero. 

Cuando el salto deba ser efectuado 
a una dirección de memoria situada 
fuera del alcance de +128 ó —127, la 
inclusión de una instrucción JMP 
complementará esta limitación. 


La correcta utilización de las ins¬ 
trucciones de comparación y bifurca¬ 
ción son, en gran medida, quienes 
dotan de su potencia de proceso a los 
ordenadores, al permitirles tomar 
“decisiones” en función de los datos 
de que dispone. 

Para finalizar este capítulo, diga¬ 
mos que algunas veces no resulta 
necesario recurrir a CMP, pues es el 
resultado de otra operación quien 
altera los registros necesarios para 
orientar la bifurcación. 


Instrucciones de 

bifurcación: 



BC S n . . 

Bifurcar 

s i 

C =1 

BCC n . . 

■ -i V;. . 

Bifur car 

9 

S 1 

C = 0 

..... 

BEQ n . . 

Bifurc ar 

s i 

Z=1 

BNE n . . 

Bifurcar 

s i 

Z=1 

BMI n . . 

Bifurc ar 

• 

S 1 

.N = l 

BPL n . . 

Bifurcar 

s i 

o 

ii 

BVC n . . 

Bifurcar 

s i 

o 

II 

> 

BVS n . . 

Bifur car 

s i 

V = 1 


Figura 3. 
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Un buen día Commodore se decidió 
¿ poner el CBM 64, la unidad de 
aiskettes y el monitor de color en un 
bonito y reducido paquete. El resill¬ 
ado fue el modelo SX-64 Executive, 
cue como su propio nombre indica, 
:ue orientado a su utilización por 
ruñe de los ejecutivos. Su aspecto 
general recuerda bastante al otrora 
r rular Osborne 1. Su peso, sin 
embargo, es algo menor, alrededor de 
_ros 10 kilos. 

El microprocesador utilizado sigue 


siendo el 6510, igual que para el 64 
normal, siendo ambos totalmente 
compatibles en lo que a software se 
refiere. 

La memoria RAM central es de 64 
Kbytes, expansibles hasta 256 Kbytes. 
De los 64 K estándar, 38 K son 
totalmente disponibles para ser utili¬ 
zados por los programas en BASIC. 

La memoria ROM empleada es de 
20 Kbytes, habiendo sido ligeramente 
alterada la zona que contiene al 
KERNAL no así el BASIC. 


Lísicamente el SX-64 se divide en 
dos partes; la carcasa principal y la 
tapa. La segunda es realmente el 
teclado, que en posición de trabajo se 
abate y separa totalmente, quedando 
unido al ordenador por medio de un 
cable enchufable por ambos extre¬ 
mos. 

El teclado está formado por un 
conjunto de 66 teclas, de ellas 4 son 
las clásicas de función: El a F8, de 
doble utilidad por su combinación 
con la tecla SHIFT. Lo compacto y 
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reducido del teclado le hacen parecer, 
en un principio, incómodo de mane¬ 
jar. Sin embargo, esta ilusión se 
desvanece al poco rato, no en vano es 
una réplica del utilizado en el otro 64. 
Probablemente lo que sí se echa en 
falta es la inclinación de las teclas con 
respecto a la mesa. SHIFT LOCK 
dispone de un LED interno que 
indica su activación. Una vez abatida 
la tapa-teclado, queda a la vista el 
panel frontal del ordenador. En el 
resalta, a la izquierda, el coqueto 
monitor de 5 pulgadas. Se trata de un 
monitor de color, cuya resolución y 
calidad de imagen es excepcional, 
teniendo en cuenta lo reducido de su 
tamaño. En el lado opuesto existe una 
pequeña puerta en sentido vertical. 


Abriendo el clip que actúa como 
cerradura aparece una serie de boto¬ 
nes de control, destinados a modificar 
color, contraste, brillo, estabilidad 
vertical y sonido. Igual que en cual¬ 
quier monitor comercial. Que estén 
escondidos tras una tapa hace que al 
menos no resulten molestos durante 
la inserción y extracción de los diske- 
ttes. Existen otros dos controles adi¬ 
cionales, ajustables sólo con destorni¬ 
llador, que llevan las etiqueta de 
subbrillo y subcontraste. Finalmente 
se sitúa un pulsador de Reset entre los 
controles de color y estabilidad verti¬ 
cal. 

El monitor puede visualizar línea 
de hasta 40 caracteres de longitud. El 
número de línea visualizables simul¬ 


táneamente es de 25, aunque la pan¬ 
talla actuará en modo ventana, per¬ 
mitiendo que aparezcan sucesivamen¬ 
te hasta 240 líneas. 

En cuanto a capacidades gráficas, 
este monitor ofrece las mismas carac¬ 
terísticas que el modelo clásico: un 
formato de 200 X 320 puntos y un 
total de hasta 16 colores. También 
está observada la posibilidad de utili¬ 
zar dos conjuntos de caracteres. El 
normal es el que se utiliza en el modo 
texto. El alternativo es de gran utili¬ 
dad para elaborar gráficos con los 
bloques predefinidos, que van igual¬ 
mente indicados en la parte frontal de 
algunas teclas, para su uso directo. 
En la parte central de panel está 
situada la unidad de diskettes , desti- 
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naid a alojar discos estándar de 5-1/4 
pulgadas. Justo encima de la unidad 
ararece una ventana, en realidad una 
caja, de dimensiones idénticas. En el 
modelo SX-64 sirve para guardar los 
d: -.ettes que se vayan a necesitar. No 
obstante puede alojar una segunda 
unidad de diskettes, con lo que el 
modelo resultante será el DX-64. 

En realidad, la unidad utilizada es 
básicamente la clásica 1541. Es una 
pena que no se le haya dotado de otro 
upo de unidad sensiblemente más 
rápida, pues es notoria la lentitud del 
1541. La máxima capacidad de in¬ 
formación acumulable por diskette 
queda en los discretos 174 Kbytes, 
una \ez formateado. 

En la posición de transporte el asa, 


que pivota a ambos laterales de la 
carcasa paralelepipédica, queda ali¬ 
neada permitiendo que el traslado sea 
relativamente confortable. Su peso, 
aunque no excesivamente incómodo, 
llega a hacerse molesto si el despla¬ 
zamiento es prolongado. La parte 
destinada a la mano es de goma 
rugosa, para evitar que se escurra con 
la transpiración. 

Durante la utilización del ordena¬ 
dor, el asa se utiliza para disponer el 
monitor en la forma más cómoda de 
trabajo para el usuario, pues lleva 
distintos topes que permiten ir va¬ 
riando el grado de inclinación.. 

La parte superior de la carcasa 
muestra una pequeña ventana, cerra¬ 
da por dos contraventanas, destinada 


a alojar los cartuchos de ROM enchu- 
fables. Su aspecto y la idea de las dos 
semitapas, que ceden al introducir el 
cartucho, recuerdan el mecanismo 
similar utilizado por Atari en sus 
recientes modelos. 

La parte posterior del ordenador, 
en realidad la base cuando se le 
transporta, es tan interesante como 
en la mayoría de los ordenadores. En 
ellas se disponen los feos conectores 
de conexión del equipo con otras 
cosas diversas. Gran parte de la 
superficie ha sido destinada al radia¬ 
dor de disipación del calor, producid 
do internamente por ciertos compo¬ 
nentes. Las aletas de refrigeración no 
dejan de conferirle un aspecto relati¬ 
vamente atractivo, desapareciendo 
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sólo para alojar una chapa en la que 
van impresas las advertencias y cui¬ 
dados a observar, así como el modelo 
e identificaciones de control. La línea 
superior, situada sobre el radiador, es 
el lugar elegido para colocar los 
conectores. De derecha a izquierda, 
lo primero que vemos es el conmuta¬ 
dor de encendido, que da paso a la 
alimentación. Seguidamente encon¬ 
tramos la tapa, desenroscadle, del 
portafusibles. Un lugar francamente 
cómodo, cuya facilidad de acceso 
permite la comprobación del fusible 
si se produce la nunca deseada avería. 
Inmediatamente a continuación está 
el zócalo de tres polos para el conec- 
tor que trae la alimentación, en co¬ 
rriente alterna, desde la red. 

Más o menos en el centro, queda 
dispuesto el útil pon de usuario, que 
aparece como una lengua procedente 
de la tarjeta de circuito impreso 
actuando directamente como conec- 
tor. A su lado se ven otros dos 
conectores redondos, cuya misión es 
proporcionar salida para la impreso¬ 
ra, uno y señales de audio v vídeo 


para un monitor externo, el otro. 
Para concluir encontramos los dos 
típicos conectores destinados a los 
joysticks. 

Se echa en falta la conexión desti¬ 
nada a la unidad de cassettes , pero es 
probable que Commodore, lo haya 
omitido en vista de que este modelo 
dispone de una unidad de cliskettes 
como mínimo. Sin embargo, esta 
carencia limita la utilización directa 
de programas grabados en cassette , a 
no ser que se haga la transferencia a 
diskette por medio de un 64 clásico; 
pero, ¿qué ocurre con los programas 
en cinta que lleven protección anti¬ 
copia? 

Otra carencia que se advierte es la 
falta de algún tipo de piloto indicador 
de encendido del aparato. 

Una vez que se conecta la alimen¬ 
tación al sistema, el LED indicador 
de funcionamiento de la unidad de 
diskettes se enciende, denotando que 
el ordenador busca información con¬ 
tenida en ella. Simultáneamente, el 
tubo catódico del monitor va cal¬ 
deándose hasta que la pantalla alcan¬ 


za su luminosidad normal. Sigue sien¬ 
do la misma pantalla de colores azu. 
pálido y gris desvaido. Con un moni¬ 
tor de tan reducidas dimensiones 
resulta que la única forma válida que 
encontramos de hacer que un textc 
sea realmente legible es una combina¬ 
ción de colores en la línea de blanco 
contra gris, como fondo y caracteres 
en primer plano. De todas maneras, 
para utilizaciones prolongadas 
aconsejable conectar el segundo moj 
nitor, preferiblemente monocromáti¬ 
co cuando sólo se desea trabajar con 
modo texto. 

El complemento idóneo para que el 
ejecutivo trabaje con él viene a ser, er. 
un principio, un tratamiento de tex¬ 
tos, tal como el potente Easywriter. 
una hoja de trabajo, en la línea de 
Cale Result. No conviene olvidar e 
amplio conjunto de paquetes de apli¬ 
cación desarrollado para el 64, c 
incluso la posibilidad de conectar el 
cartucho CP/M-80, para mayor apro¬ 
vechamiento del numeroso software 
(en inglés) disponible en los mer¬ 
cados. 

En conclusión, estamos ante un 
serio contendiente en la gama, de los 
ordenadores transportables (no con¬ 
tundir estos con los portátiles), que 
puede ejercer una seria competencia 
con otros modelos, a pesar de la 
lentitud de su unidad de disco in¬ 
terna. 
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PREMIADO CON 



Desde Valladolíd a la Lana pode¬ 
mos ir con este programa que, desde 
dicha ciudad, nos emia I>aac Llopis 
Ruiz. El juego consiste en llevar hasta 
la Luna, sano y san. un platillo 
volante, y hacerlo aterrizar, una vez 
allí, en una base de aterrizaje del 
subsuelo lunar. El \ia;e ^e desarrolla 
en dos partes y, ni que decir tiene que, 
a lo largo del camino ha> que salvar 
muchos obstáculos > peligros, que si 
bien pueden acabar con el viaje en 
cualquier momento, lo hacen también 
más entretenido e interesante. La 
primera parte se trata de aterrizar la 
nave en una plataforma de aterrizaje 
subterránea a la que se accede a 
través de un estrecho túnel, practi¬ 
cado en la roca lunar. En este túnel se 
pone a prueba la destreza del piloto 
que debe conducir la nave >in chocar 
con las paredes. 

Para llevar la nave a su destino es 
necesario utilizar un jo; > :ick . que se 
conectará al port 2 del ordenador. 

Sólo nos queda esperar que el 
programa sea de vuestro agrado y 
desearos un feliz viaje. 
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2020 BOTAS, 85,80,2,170, 128,0, 170,0, 0, 20,0,0,0,0,0,0,0., 0,0,0 

20j0 BATHO,8,0,0,107,@,0,40,0,0,170,0,1,85,64,10,179,160,42,170,168,85.05.85 

‘ - 74 j 18e ■' 235 ,174,186,235, í 74,85, 85,85,170,170, 170,42, 170,168 
20-J0 BmTH j, 85,80, 2,170, 128, 0,170, 0, 0, 20,0, 0,0,0,0, 0,0, 0,0,0 

ü i- 1 -' 233 ' - 1 -' 0 • 40,0,9, 170,0,1,85,64, 10, 170, 160,42, 170,168,85,85,85 

-¡n.-.n 5SÍ2I' íE 1 '' 174,186,235,174,186,235,85,85,85,170,170,170,42,170,168 

c-Uot BHTB-i, o-i, otí, 2, 1 í 8, 128, O, 1 70, 0,0, 20,0, 0,0.0,0,0.0, 0.0.0 

*??? DFi r H00 00 126,0, 1,255,128, 7, 255,224,12,30, 48 31,255 J 248,69, 63,28 

lí 7 i ^7.-254, 127,247,254, 127,243,254, 127,251,254,127,255,254 
% J 2;^° :■ " =’' ii* 55 • 31 1 3 1 120,15,123,112,7, 255,224,1,255,123,0,126,0 

ÜflTHy, 0 , 8 , y._«, 85, tío, 21, y5, 34, 5, 35, ü, 1,85,0, 1,35, 0, 0, 85, 8, 8, 35,64,8,28, 16 
21 o8 DflTflti, 20,4,0,20,4, 8, 28,8, 8,28,4,8,28,4,8, 28, 16, 8,85.64,8,85,8, 1,35.8 

2140 DflTfll,85,8,5,85,8,21,35,34,85,85,36,128,0,2,128,0,2 

6^: DflTfllO, 17o, 168, 10, 185, 168,2, 185, 128,2, 178, 128, 128, 178,2, 168, 178, 18 
211>8 DHTH42, 190, 168, 18, 198, 168, 2, 255, 128,2,255, 128,18,198, 168,42,198, 168 
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I 2170 


C. 1 

2190 
2200 
2210 
3000 
30 1 0 
3020 
3040 
3050 
3060 
3070 

3080 

3081 
¿ 

3083 

3084 

3085 

3086 

O m O 

.JMIJ | 

3088 

3089 

3090 
3892 
3093 


_»rj 


3095 

3096 
3997 
3 1 00 
3110 
3120 
3130 
3140 
3150 


DAT H 1 60, 19Q , 1 0 , 1 28, 1 90, 2 , 2 , 1 76, 1 23, 10 , 1 70, 1 60,42,170,168,40,1 30 ,40 
DAT ñ32, 1 30,8,32,130,8,8, 1 30,8 

D h T h c*, 0 , 0 , o, 0 , 0 , y .< 0 .> 0 .< y, 0 , 0 , y, 0 , 0 > / y, 0 .< 0 .< y 2 , 0 , 0 ,5 4, 0 , 0 , 12 (, 0 , 0 ,11 y, ü , 0 
BATA 127, 0 ,0, 119, 0 , 9 , 127, 0 , 8 .119, Ü , 8 , 127, G , 0 , 119, 8 , 8 , 127, €1 , 8 ,62, 0 , 8 
DATA 127,0, 0 ,255,128, 8 ,221,128, 8 ,221, 128, 0 
PÜKEV+21,8 : PRI NT M □SüftttHWr’ñ ESTñ F'RÜK I MCt R Lfí LUNA. AHORA " 
F7?INT"*»IBEBERA INTRODUCIR SU PLATILLO HRSTH" 

PRIHT'LPWLH PLATAFORMA NEGRA SIN TROPEZAR" : FÜRV=8TO2500 : NEXTV •' PRINT"!!" 
PÜKEV+21,135•PÜKE53279,<<PEEK <53279 >>ANBG> : PÜKE53230, 6 •P0KE532R1.14 
FORT=0TQ1 5 :POKEV+T, 8 :NEKTT 

X=265 •• R=60 : H=INT <7/256 > • L=/-256*H : PÜKE53276,7 :..P0KE53277,7 : PÜKE53271 - 128 
POKbV+16, 128+7*H ; P0KE53279 ,0 : POKEV, L : POKEV+1, P 

m" 

* 73" : PRINT 

* .73“ 

* *"-PRINT 

* " : PRINT 

% $ " : PRINT 

% * " : PR I NT • 0=5 : GÜSUB6800 

% ": PR I NT :0=7•GOSUB6000 

% "-PRINT : 0=35 : GOSUB6000 
% % " : PRINT : O=48 ; GOSIJE 68 A 8 

$ % ":PRINT:0=78 : GOSUB6800 

Tí*" : GOSUB60G0 

* Hl" PR í NT • GGSUB680G 

% 173" • GOSUB6800 

* +":PRINT:GÜSUB6000 
PRINT ; GÜ3UB6080 : PRINT •' GOSUB6008 • PRINT : GOSUB6000 : 0=98 

PRINT:GOSUB6800 : PRINT : GÜSUB 6000 :PRINT : GÜSUB6800 : PRINT:GÜSUB6808 : 0=150 


PRINT" 
PRINT "73 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 


r . |. 

r " 


•r m 
i 


PRINT" 
PRINT" ¡78 
PRINT" 
PRINT" 


3170 


3190 

3280 

3210 


,• ,'t.-i 
•_* i.' *1, 


::238 

?*248 

3258 


PRINT" 

PRINT"? 

PRINT" Sí 
PRINT"na ? 

PRINT"na ? 

print ,,r ia ? 
print". na ? 

PRINT"na rn 

print" na 
print" na 
print" na ! 
print" na ™ 
print" na ? 
print" na ■ 

print u na ? 

print" na ■ 


*a 

ar 

ar 


■ , pi 


‘W'W 


S¡r T' : GOSUB6000 : 0=160 

'?■ sir^“ : G O S U B6000 • ü = 17 0 




a 

a 


a 

a 

Mi 


? 

? 

m 

ÜB 


ar 

a 

a 

a 

a 


m 


a 


a 


" ; GOSUB6000 : 0=180 
" : GOSUB6800 : 0=190 
" : GOSUB6G00 : 0=208 
" ; GOSUB6000 
":GÜSUB6Q00 

a " : Ü=220:GÜSUB6000 


a 

UÉ*I 

r'= 

a 


?^a ? 


a 


a 

a 


NK 




a 


a 

» 


a 


a 

a 

W 

a 


a " : Ü=280 : GOSUB6000 
0=380 : GOSUB60G0 
GOSUB6080 
a ":GOSUB6000 
":0=358 : GOSUB6800 
" : 0=375 : GOSUB6800 


ii 

11 

11 


O ■-> ¡C M 
•—* c~ f ...' 

PRINT" 

r “*i a.1 

. Jk>í 

m 





«i 

y* 

”"*7m 
CL. 1 U 

PRINT" 

“0 

fc* 
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O O M 

£_ l_ l !■_* 

Dril,' P ' r. 

i L_ j. 

1 ’l 

-.«* , 

.*! 

Um lL. * Y 

POKE 

.J r m i 

•" rr rr 
• J--. 1 , 1 



•"'l •*"» j ’l 'I 

■Jl'iiO 1 

PGKE20 

*“l "l 

¿i _> .1 

224 

1 PUKE 

b6 

.—, , (;■ —y 

_• j , r 



3290 

F'üKE V 4' 

14, 

45 : 

POKEV 

+1 

5, 199 



3291 

V0=542 

9 y 

Wfl= 

•j'iri r y 

H 

.... r;s .-i 

- ‘4 c. i’ O 

: AT=5 

4 u.'. r r 

4 ? 9 "• 

1 -—* t -- 

PÜKEVÜ 

15 

: PÜ 

KERT- 

O 

• PÜKESi 

1 ~4 cr cr 

éí-J.J 

: PÜK 

■**) j 

PUKEWA 

, 17 

: PÜ 

!•■; E I*-1 í"! "i" 

■**? 

í .* 

17 : F’ÜKS: 

::u -u“7 

_i?-i .< 

1 ¿r • p 
i n • i 




a 

a 


73 


a " : Ü =4 0 0 •' G O S U E 60 0 0 

¿3" 


1.0=54272 : PH=54275 : PL=54274 : 3U=54278 


1 1 
1 i*"*» 


3308 FORW=0TO180000 

3310 POKEV,L : POKEV+1, R •POKEV+5,0 : POKEV+4,0‘GOSIJB28800 
3320 PGKEV+2,L : PÜKEV+3,R : POKEV+1,0 : POKEV,0 : GOSIJB28800 


3 ■ 

a 

m 

a 

? a 

" : Ü=240 : GÜSUB6000 

1 O 

:í ? 

sí 

M 

a 

? a 

" : 0=268 : GOSUB6000 

1 O 
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3340 

3350 

3940 

3960 

3970 

4000 

6000 

7000 

7010 

7020 

7100 

7101 
7110 

7120 

7121 
7125 

7130 

7131 

7132 

7133 
7140 
7200 


POKEV+4,L = POKEV+5,R : POKEV+3,0:POKEV+2,0:GQSUB20000 
HEXTW 

POKEV+21 , 135 : PÜKE53279, < < PEEK< 53279 »flND0) = POKE53280,6: P0KE53281,14 
X=265 = R=60 : H=IHT i X/256 > : L=X-256#H : P0KE53276,7:PQKE53277,7:P0KE53271,128 
POKEV+16.. 128+7*H : P0KE53279,0: POKEV, L : POKEV+1 .• P 
GOTO4000 

FORT=0TOO:HEXTT:RETURN 
POKEV+16,128 

POKEWH,129:F'OKEWñ+7,0:F'OKEWñ+14,0:F'ÜKEVÜ,15 

POKEWfl , 17 •• POKEWfl+7 > 17 : POKEH, 32: PQKEH+7, 33 = POKELO, 94 : P0KEL0+7. 75 
FORW=199T0588TEP-1:POKEV+15,W:IFW<75THENGO3UB2000 
IFW>180THEHGOSUB2000 
HEXTW 

FORF=45TO0STEF‘-1 

IFF>15THEHGOSUB2000 

POKEV+ 14, F : NEXiTF 

POKEV+16,0 

F0RE=255T058STEP-1 

POKEV+14,E:IFEC72THEHGOSUB2000 

HEXTE 

PRiHT"iaai»»»*»rv , ivfl lñ pepa" 

FORT=54272TO54290 : F'OKET, 0 • HEXTT 


SUSCRIBASE A 

COMMQDORE MAGAZINE 

(12 NUMEROS) 

TARIFA DE PRECIOS DE SUSCRIPCION 




Recorte y envíe este cupón a:COMMODORE MAGAZINE, C/Bravo Muríllo, 377, 5 fl -A - Madr¡d-20. 

El importe lo abonaré: POR CHEQUE □ CONTRA REEMBOLSO □ 

CON TARJETA DE CREDITO □ American Express □ Visa □ Interbank □ 


Numero de mi Tarjeta: 
NOMBRE _ 


Fecha de caducidad: 


DIRECCION 

CIUDAD _ 

\ VERO 4 


_ D.P. 


PROVINCIA 


O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 

o 



CORREO 

ORDINARIO 

CORREO 

CERTIFICADO 

CORREO 

AEREO 

CORREO 

AEREO-CERTIF. 

* 

PT AS. 

$ 

PT AS. 

$ 

PT AS. 

$ 

PT AS. 

$ 

ESPAÑA . 

EUROPA, MARRUECOS. TUNEZ, 

3.000 

21 

3.273 

23 

m 

3.055 

22 

3.333 

24 

TURQUIA. ARGELIA Y CHIPRE . 
COSTA RICA, CUBA, CHILE. PA- 

3.456 

25 

4.272 

31 

3.600 

26 

4.418 

31 

RAGUAY Y REP. DOMINICANA. 
GIBRALTAR Y PORTUGAL 

3.396 

24 

4.212 

30 

4.164 

30 

4.980 

36 

FILIPINAS . 

3.264 

23 

4.080 

29 

3.149 

22 

3.965 

28 

RESTO DEL MUNDO. 

3.264 

23 

3.540 

25 

3.775 

27 

4.050 

29 

- - 

3.456 

25 

4.272 

31 

4.224 

30 

5.040 

36 


\4nq¿izlruQ_ 


21 
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Co<' cU *" s ° 






1 0000 
1 00 1 0 
10020 
1 0030 
10040 
10050 


355 


1 0060 
10061 
10062 
10063 
10066 
10067 
10070 
10u r* 4 


7,-75 


1 0080 

1008 i 

1 0090 

10091 

10092 

10093 
]. 0095 
10100 
10110 
10120 
1 0300 
10305 
10310 
20080 
20010 
20020 
20030 
28840 
20050 
20055 
20066 
28067 
20069 
28070 
20188 
28181 
20185 


jQJ 08000 

P=<i5ñND< PEEK<56320> >> 

P1-PAND1 

P2=PfiND2 

P3=PANB4 

P4=PAND8 

R=R-2. 4#P2+4.8#P1 
X -X 1. 3 # P 4+ 2.6 # P 3 
IF F: >232THENR=2 3 2 
IFR<50THENR=50 
IF X >328T H E N X ~ 3 2 8 
IF X <2 4THENX=24 

H= I NT < XX256 ) : L=X-256#H ; POKEV+18.* 64+H 
IF(PEEK<53278 >ñND1 > = 1THEN10874 
RETURN 

PRI NT " ¡T < PEEK < 53278 ) > 

IF <PEEK < 53278>ANDO>=8THENF0RE=3TÜ11•POKEV+E,8:NEXTE•GOTO18100 

FÜRQ-0T 018:PÜKEVÜ,15:PÜKERT,0:PÜKESU,128:P0KE54276,129•PÜKEH,40:PÜKELÜ,94 

PÜKE53276,113 : GÜ3UB2000 : PÜKE53276',112:GGSUB2000•PÜKEVÜ,0:PÜKE54276,0:NEXTO 

PÜKEV+21 ,8 : PRINT"n?Mí!l?OÍÍÍI-0 SIENTO, FUE •INTERCEPTADO, PñRFT 

PRI NT "ÍWMII ATENTARLO OTRA VEZ PULSE LA BARRA" 

GETET:IFE$=""THEN18892 
IFE$=" "THENRUN 


IFU=0THENU=1 : GOTO10308 
IFUU=0THENUI> 1•GOTO18385 

A ITT 03008 

POKÉV+2 i , 0 : PR I NT" X^PMP.MílliiliMPirT'H HA RECORRI DO 130080KM. " = GOTO 1 0318 

pükev +2 1 , 0 •• pr i nt M TEmjm»énwn^ ha recorr i do 260000 KM." 

PRINT"KB»»»ÍÍ»»PREPARADO PARA CONT1NUAR"•FÜRY=0TQ1588:NEXTV:G0T0247 
P=<15AND<PEEK <56328 > >> 

.P1=PAND1 
P2-PHND2 
P3-PANB4 
P4=PAND8 
R=R-.5*P2+1#P1 

H=INT<X/256>:L=X-256^H:POKEV+16,128+7#H 
IFL >228ANDE <237ANDR>224THEN7880 
IF<PEEK <53279 > AND1> = 1THEN20180 
RETURN 

FORQ-OTÜIO : PÜKEVÜ, 15 : POKERT, 0 : PÜKESU, 128 : P0KE54276, 129 : POKEH, 40 *• PÜKELÜ, 94 
P0KE53276,113:GOSUB2008:P0KE53276,112:GÜSUB2080•PÜKEVÜ,8 : PÜKE54276,8 : NEXTQ 
GOT018890 / " 
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a 




Coi»' 

re5S-f : S' 


rttf* 0 


PREMIADO CON 


®J(®V® 


PESETAS 


iMíOTÜtoss 


Desde Madrid, Cines Plaza López 
nos envía este programa, BIORRIT- 
MOS, para el Commodore 64. Los 
biorritmos, como mucha gente sabe, 
son ciclos biológicos que parten de 
cero el día de nuestro nacimiento, y 
que van evolucionando a lo largo de 
nuestra vida, pasando por máximos y 
mínimos y, según dicen algunos, de¬ 
terminando en cierto modo nuestra 
suene, nuestro potencial y nuestro 
cestino. Hay tres ciclos o biorritmos 
rundamentales, con distinto período 
de repetición cada uno de ellos que 
son: 

El biorritmo físico que determina 
nuestro potencial físico y que se repite 
con una periodicidad de 23 días. 

El biorritmo emocional, determi¬ 
nante de nuestro estado afectivo y 
con un período de 28 días. 


Y por último, el biorritmo intelec¬ 
tual, que marca nuestras capacidades 
intelectuales y de trabajo creativo y 
que se repite cada 33 días. 

Con este programa podremos co¬ 
nocer en cualquier momento el estado 
y la evolución de cada uno de estos 
ciclos. 

El programa comienza pidiendo 
varios datos como son el nombre y la 
fecha de nacimiento de la persona que 
desea ver su biorritmo. Luego pide la 
fecha de inicio del biorritmo y cuan¬ 
tos días se desean ver a partir de dicha 
fecha. Los datos de las fechas hay que 
escribirlos separados por comas, por 
ejemplo una fecha válida es 3, 4, 1984. 

Después de introducidos todos los 
datos, el programa realiza sus cálcu¬ 
los, nos dice cuantos días han trans¬ 
currido desde la fecha de nacimiento 


O 
O 

c 
o 
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o 
o 
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o 
o 

o I 

O 1 


o 


5 PRINT" IT 
10 DIM MESESi 1 :: 12) 

15 PRINT"S E I 0 R R I T M O S 

2ü INPUT"M 8 U HOMBRE.. POR FñVOR";HOMBRE* 


ii 


;:HÑS: CDD . MMñññfi: 
tMIENTO";DI,MI, ñI 
[ 0 " DF, MF , hF 
DIRS LO QUIERE" 


30 PRINT"MÜENTRADfl DE FE 
50 INPIJT" íMsFECHfl DE MAC 
60 INPUT"(©FECHA DE IMIC 
100 I NPUT " MMsFñRfl CUANTO? 

120 FOR 1=1 TO 12 : REflD MESES*<I>:NEXT 
130 fi=ñ I ; M=M I : D=D I : GOSUE 1000 : HD < 0 =HB 
140 ñ=fiF:M=MF:n=DF:GOSUE 1000:HD <1>=ND 
15 0 D=I •! D < 1 , - N D < 0 "> 

‘70 DEF FNfi< X> = (X-1900 >/4 
130 D=Ii+1 NT < FNñ (RF > > -1 NT < FNfl < ñ I > > 

210 CF=2*it/23 
220 CE=2*ir/23 


•. ii 


: v. 


a la fecha de inicio del biorritmo y 
nos presenta un menú para que esco¬ 
jamos cual de los 3 biorritmos desea¬ 
mos ver en pantalla. 

El biorritmo escogido se presenta 
en forma gráfica en la pantalla, co¬ 
rrespondiendo el eje vertical a los días 
y el eje horizontal al valor del biorrit¬ 
mo para cada día. Los máximos 
aparecen a la derecha de la pantalla y 
significan buenas perspectivas, por el 
contrario los mínimos aparecen a la 
izquierda y no presagian nada bueno. 
Por último, el programa nos pregunta 
si deseamos ver algún otro biorritmo, 
terminando en el caso de que la 
respuesta sea negativa. 

A partir de ahora, y con este 
programa, antes de salir a la calle 
habrá que consultar, no sólo el ho¬ 
róscopo, sino también el estado de los 
biorritmos. 
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“O1T1 

240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
2 fifi 


410 
420 
425 
430 
440 
450 


470 
480 
500 
5 i 0 
520 
530 
600 
610 


CI =2#fr/33 

PR I NT" r3«:*lÍ»Íi»E: IORRITMO DE " ; NOMBRE* 

PRI NT" Mñ PflRTIR DEL."; DF; "DE "; MESESf <MF> ;" DE" ; AF 

PRINT"MULOS DIRS TRANSCURRIDOS DESDE L.fi FECHA" 

PRINT"MHE NACIMIENTO HASTA El CAMTENZA" 

PRIHT"MDEL EIORRITMO SON 3";D 
PRINT" 1BWQIJE EIORRITMO DESFA'"' 

PRINT"M CF>: FISICO" 

PRI NT"M <E>: EMOCIONAL" 

PRINT"W <I>: INTELECTUAL" 

GET Aí : IF A$="" THEN 33R 
IF Af="F" THEN 400 
IF A$="E" THEN 500 
IF ñ$="I" THEN 600 
GOTO 330 

COEFICIENTES 
1$=="FISICO " : P$="o" 

GÜSUB 700 

PRINT"WDESEfi OTRO BIORRITMO^ c'S/'N >" 

GET IF ri$= M " THEN 440 * 

IF B$="S" THEN 240 
IF n$<> l, N" THEN 440 
GOTO 900 


COEFICIENTES 
T$="EMOCIONAL 
GOTO 420 




COEFICIENTELOI 
T$=" INTELECTUAL 
620 GOTO 420 


" : p$=s"4 " 


700 
710 
720 
730 
740 
750 
760 
770 
730 
790 
300 
810 
9 Fifí 


PR I NT " 3 SI BI ORR I TMO "; T$ 

FOR 1=0 TO B-l 

K=INT <17*SIN<<I+D) *COEFI C I ENTE) +17 > 
IF ICIO THEN PPINT" 

PRINT I.;"!".; 

FOR J=i TO y -l 
PRINT"." 

ne:ít j 

F'R I NT Pf 
NEXT I 
RETURN 


920 REM- NOMBRES DE MESES- 

930 : 

960 DATAENEROj FEBRERA, MARZO, ABRIL., MAVO 
970 DAT ATUN IO, TUL IO, AGOSTO, SEF’T J FMBPE 
980 DATAOCTUBRE,NOVIEMBRE,DICIEMBAE 

990 REM-CALCULO DEL. DIAS- 

1@00 A=A~1:IF M>2 THEN ñ=fl+1 
1010 M=M+13 : IF M>15 THEN M=M-12 
1020 ND= INT C 365.25*A) +1 NT <30, 6001 *M "> +D+1 7?0Ofií> 
1030 RETURN 
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CRUZ es un juego para el Commo- 
dore 64, enviado por Luis Meléndez 
Aganzos desde Córdoba. El progra¬ 
ma comienza dando las instrucciones 


de juego para, a continuación, borrar 
la pantalla y presentar en ella el 
tablero de juego. Este consiste en una 
matriz de 7 X 7, con las filas numera¬ 
das de una a siete y las columnas 
identificadas por letras, de la A a la F, 
sobre el que aparece. dibujada una 
figura en forma de cruz. La cruz se 
supone que está constituida por fi¬ 


chas sobre un tablero. \ el objeto del 
juego es ir comiendo fichas, una cada 
por cada jugada, hasta que sólo 
quede una. Las reglas para comer 
fichas son las siguientes: Para comer¬ 
se una ficha hay que saltar sobre ella, 
con otra ficha, hasta un espacio 
vacío, igual que en el juego de las 
damas. Sólo se puede saltar en senti- 
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4 F'RIHT"^" : F'RIHT" ««?lí!l!Mi!MPli***»ESCRIEñ PRIMERO Lñ LETRñ" C ¡° vertl . cal u horizontal, pero no en 


I" 


30 

o«=¡ 
. 1.1 


II 


GOTO 140 
• t •" : GOTO 140 


5 PRINT^iiMifr' LUEGO EL NUMERO" 

6 PRINT ,, Mtt*»»»ÍFARA RENDIRSE, PULSE 3 - 3 ! 

7 PRINT"KWOTMPULSE UHñ TECLA PHRñ EMPEZAR" 

8 GET Z$ : IF Z$="" THEN 8 
10 PR I NT " 73 " : PR I NT " !íl" 

20 PÜKE 53280 , 7 : POKE 53281,2 

PRINTTAB< 12 );"A B C D E F G" 

PR INTTAB (12 > j "---" 

40 FOR 1=1 TÜ 7 

50 PRINTTAB<8>;I;"I"•PRINTTAB<11); n l M 
60 NEXT I 
80 PRINT"í®®fl" 

100 FOR 1=1 TO ?:PRINT 
i 10 IF 1=4 THEN PRINTTAB< 12 );"• • • • 

120 IF 1=3 OR 1=5 THEN PRINTTAB< 12 );# t • 

130 PRINTTAB< 12 >.¡". . • • t . 

140 NEXT I 
150 PRI NT" JIM" 

160 INPUT"MUEVE DESDE : ";A$ 

178 IF A$=" 0 " THEN 510 
180 IF LEN<A $)02 THEN PRINT"m" : GOTO 160 
190 INPUT"HASTA : "; 

135 IF B$=" 0 " THEN 510 

280 IF LEN<E$K >2 THEN PRINT"m" • GOTO 190 
205 PRINTTAB< 14 );"TI 
207 F’RI NTTAB < 8 >," 

215 Al=ASC<LEFTf < M , 1 >>:Ñ 2 =VRL<RIGHT$<A*, 1 >> 

220 B 1 =ASC(LEFT$<B$, 1 >>:E 2 =VAL<RIGHT$<B$, 1 >> 

IF A 2 >7 OR H 2<1 THEN PRI NT" TÜ" : GOTO 160 
IF B 2>7 OR B 2 < 1 THEN PRINT"m" : GÜT 0190 
IF Al >71 OR Al <65 THENPRINT"TIT : GOT 0160 
IF El >71 OR E 1 <65 THENPRINT"m" : GOTO 190 
IFAIOBI AND A 20 B 2 THEN PRINT'Tm" : GOTO 160 
IF ABS<A 2 -B 2 K >2 AND ABS<A 1 -B 1 K >2 THEN PRINT" r m" : GOTO 160 
Ml=l 114 + 2 #<Al- 64 )+ 80 #A 2 
M 2 = 1114 + 2 *<B 1 - 64 >+ 80 *B 2 
M 3 = 1114 + 2 * < < ñl+Bl-’l 28 > /2 > + 80 * < < H 2 +B 2 > 72 > 

IF PEEKXM 1)081 THEN 470 
IF PEEK<M 2>032 THEN 470 
340 IF PEEK<M 3>081 THEN 470 . 

480 PÜKE MI ,32 

418 PÜKE M 2 , 81 

420 PÜKE M 2 + 54272,7 

430 PÜKE M 3,32 

450 . CTCT+l 

460 IF CT >30 THEN 500 

470 PRINT"TTT' : GOTO 160 

480 PRINT"m 


diagonal y sólo se puede comer una 
íicha por jugada. La jugada se intro¬ 
duce por el teclado, respondiendo a 
las preguntas ¿MUEVE DESDE?, y 
¿HASTA? Después de introducida la 
jugada, el programa se encarga de 
comprobar si es válida o no. y sólo la 
admite si la jugada es correcta. El 
juego continúa de esta manera hasta 
que el jugador alcanza su objetivo o 
bien hasta que decide rendirse, lo que 
hace pulsando la tecla cero. 
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230 
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250 
260 
280 
29Ü 
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302 
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320 
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430 pRiNT" nnn" 

500 PRINTTABC5); "SJ E N H 0 R fl B IJ E H fl 
510 PR I NTTAB C7 ) " WWDESEñ OTRA PARTIDA 
520 GET Af- 

530 IF A$="S" THEN RUN 
540 IF A$="N" THEN END 
550 GOTO 520 


O 
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Daniel Cocho González, lector de 
Commodore Magazine en Madrid, nos 
remite un interesante programa que él 
ha llamado DIBUJO JÓY, nombre 
muy adecuado para este programa. 


ya que permite realizar dibujos con el 
joystick , sobre la pantalla de alta 
resolución del 64. El programa co¬ 
mienza presentando en pantalla las 
instrucciones para Ja realización de 
los dibujos. Estas instrucciones son 
sencillas; para dibujar una línea basta 
mover el joystick en la dirección 
deseada, que puede ser horizontal. 


vertical o diagonal. En cualquier 
momento, se puede pulsar el botón de 
disparo del joystick lo que equivale a 
"levantar el lápiz del papel”, de esta 
forma el punto deja de imprimir, 
aunque puede seguir moviéndose por 
la pantalla. 


1 PRINT" íl" : PRINTCHRÍC147) : PRINTTAEC8) "MíIíKIí^T-TI I “4-LTI 

2 PRINTTAB C 9) "Mdk-ABEZA DE SERIE 003" 

3 PRINTTABC10)"Mffil S ——IRQ #QFT 19848":POKE650, 128 

4 FORI = 1TO2000:NEXT>PRINTCHRf C 1 47 ) 

5 piM2$C4, 1000) :DIMV C 4) : PRINT" ¡I" : POKE53280, 2: P0KE53281 ,2 ■ G0T050 

DI(.4,1000> : DIMVC 4 ) : INF'IJT " HJMERO DE PAG I ÑAS DEL TEXTO C MAX. 4) : " ; N 

7 IFNC10RN>4THENPRINT"/LIMERO DE PAGINAS NO RECONOCIDO" 

8 IFN<10RH>4THENG0T06 

9 PRINTCHRíC147) '> TABC8) "fiMEFINICION DE PAGINAS!" 

10 PRINT"M \AX. NUMERO DE CARCTÉRES•' 1000 POR PANTA LLA."; 

11 PRINT"-IJANDO LA PANTALLA SE BORRE ESCRIBA EL TEXTO." 

12 PRINT: PRINT : F'RINTTAB(5)" (TIRA SEGUIR PULSE UNA TECLA)" 

13 GETUA*:IFWA$=""THEN13 

14 FOR I = 1 TON : PR I NT " 13" : PR I NTT ABC 12) "TU /♦ "; I: PR I NT " /UMERQ AF'ROX IMADO DE " ; 

15 PRINT"CARACTERES DE LA PAGINA" ; I : INPUTVCI) : F'RINT"21" : P0KE5323A.12 : FORR= 1TOVI '■ 

16 GET2$<I,R):IF2$C I > R ) = " "THEN16 

17 PR INT2* C I, R ) ; : NEXTR : NEXT I : POKE53280,2 •' PR I NT “ ."3" : GOTO50 

18 F'RI NT " .1" : FOR I = 1 TON: FORR= 1 TOV < I) : PRI NT2$ CI,R); : NEXTR 

19 GETQAÍ:IFQA$=""THEN19 

20 PR I NT"."3": NEXT I: GOTO50 

21 PRINTCHRÍC147):F$="":PRINT:INPUT"IITOLO DEL TEXTO EN “ATASSETTE";F$ 

22 IFLENC F$ )=0THEN21 
30 0PEN1,1,1,F$ 

= * ÍUW: PR1NT#1 •' t' 1 ' I "■> '■ FORR= 1 TOV C I ) : F'RI NT# 1,Z$C I, R); : NEXTR : NEXT I 

•-*cl L-LUbc 1 • üU I IJ50 

40 DI MZ$ C 5 , 1000 ) : D I MV < 5 ) : PR I NT "21" : I NPUT " TITULO "; F$: OPEN1, 1,0. F$ : I NF'I IT# 1 . N 

ti r p £}Z™*±l>!*"Í¡ ■ yjT "MWt I > : «Til ,Z.<I. R> : ikwléí": OOSB?«»OI« 

■->ü FRINT 21 • F'RINTTHE( 14) "L" = PRINT 

51 PRINTTABC 10) "S:<L) S LEER CINTA 

52 PRINTTAE < i 0 ) "¡!C ) a “SCRIBIR TEXTO " " 

53 PRINTTABC 18) "!!<-) a “OMPROBAR TEXTO " 

54 PRINTTABC10)"HC#)a «ALVAR TEXTO 

55 PRINTTABC10)"SK-)3 -IN DE PROGRAMA " 

56 PR I NT : PR INT: PR INT: PR INT: PR INTTAB C16 ) " TPCION " ; : I NF'I ITD* 

57 IFD$="L"THEHRUN40 

58 IFDí="THENRUN6 

59 IFDÍ="“"THEN18 

60 IFD$="«"THEN21 

61 I FD$= " THENEND 

62 PRINT:PRINT"fPCION NO RECONOCIDA":F0RT=1TO200:NEXT:GOTOSO 
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De nuevo una misión de combate 
en las estrellas. En este caso se trata 
de proteger un conboy de naves, de 
los ataques de cazas enemigos. El 
programa comienza presentando un 
título, luego se encarga de cargar los 
datas de los diversos sprites, datas 
que hay que copiar con sumo cuida¬ 
do, para pasar a preguntar, a conti¬ 
nuación, si se desean instrucciones o 
no. A continuación comienza el pro¬ 
grama principal, creando sobre la 
pantalla una simulación muy intere¬ 


sante de la cabina de una nave de 
combate. En esta cabina aparece un 
radar para indicar la posición de las 
naves enemigas aún cuando no estén 
al alcance visual, además este radar 
lleva dos marcas a los lados para 
indicar el momento en el que las 
naves enemigas entran dentro del 
radio de acción del láser. Aparecen 
también en la cabina dos indicadores, 
uno de ellos mide el combustible de 
que se dispone, mientras que el otro 
es un marcador de puntuación que se 


incrementa cada vez que una nave 
enemiga es alcanzada. El último ele¬ 
mento esencial de la cabina es el 
cristal delantero, por donde se verá 
aparecer a las naves enemigas cuando 
estén dentro del radio visual, y que 
lleva en su centro una mira para el 
láser, sobre la que ha> que situar al 
enemigo para alcanzarle. Las naves 
enemigas son resistente- \ por ello, 
solo después de cinco impactos hacen 
explosión. Por cada nave destruida 
aparecerá una marca en el ángulo 
inferior izquierdo de la pantalla. 
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10 REM mwm*************** 

12 REM * % 

13 REM * CRUCERO ESTELñR * 

14 REM $ $ 

15 REM 

16 REM 

17 REM 

20 PGKE53280,12:PQKE53281,12:GÜSUB2500 

50 REM %% REGISTRO DE SONIDO ** 

51 SD=54272 

60 DI MSC$<5 ), SC<5>. SH< 5 ) : FOR J= 1 TOS : SC$ < J ) = " ********** " : SC < J ) =0 : SH < J ) =0 NEXTJ 

100 REM #* INICIfiLIZfi REGISTROS DE SPRITES 

101 V®53248 • PQKEV+40,6 : POKEV+44,6 : PQKEV+45. 6 ■' PQKEV+46, 2 : P0KE53275. 255 
105 POKE2045,244:POKE2046,245 *PÜKE2047.246 

120 REM ** DECLARACION DE VARIABLES M 
125 G=0 : HI=0 

130 SC=0: X«0 : V*0 : 1=0: SI=0 : XP=0 • XE=0 : XR=0 : XD=0 : N=0 : JV=0 • M=0 *• Q=0 : S=0 • TI$=' 000000" 
135 VR=0 : CL=0 : F=500 : A=0•SH=0 
140 IF G=1THENGOTO190 
150 IFG=0THENGOSUB5000 

160 REM * OPCION DE INSTRUCCIONES ** 

161 IFG=0THENPRINT"QUIERES INSTRUCCIONES ? <S/N Y 
167 GETA$:IFA$=""THEN167 

169 I FASO" S"ANDA$<>"N" THEN 167 
171 IFA$="S"THENGOSUB3000 
175 G=1 : POKE53280 Al- P0KE53231.12 
190 GOSUB1000 : GOTO700 

200 REM %% MOVIMIENTO IZQUIERDA ** 

201 POKESD+4.19 

203 X=X~6•IFX=<0ANDSI=2THENX=X+255 : POKEV+16,0:POKEV+2.X:SI«0 

204 IFX=O3ANDSI*0THENX=0 

205 IFXP=<0THENXP=0 

207 POKEXD+<VR-1)#40,160:PÜKEXD+54272+ÍVR-1>#40, 5 

211 XE=XP:XP=XP-6•IFXP<0THENXP=0 

212 XR=1558+INT<XE#12/347> 

218 PQKEXR+YR*40,160:POKEXR+54272+VR*40,5 
220 XD=1558+1NT<XP#12/347> 

*225 POKEXD+VR#40.87:POKEXD+54272+YR*40,6 
230 RETURN 
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Cuando se acabe el combustible, 
ur. sonido de sirena indicará el final 
ue la misión. Entonces y según la 
puntuación obtenida, podrá escribir¬ 
se el nombre del piloto que figurará 
er. una tabla de los 10 mejores. El 
control de la nave se realiza mediante 
un joystick , conectado al pon 2 del 
64. que también sirve para disparar el 
-aser. Sin embargo, para aquellos 
.ec:ores que todavía no dispongan de 
.n joystick les bastará con sustituir 
*as líneas 780 a 805 por las siguientes, 
une permiten control desde el teclado: 
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REM ** MOVIMIENTO DERECHA ** 

POKESD+4.19 

>'~y.+6 '■ I FX=>256 AND SI =0THENX=X~256 : P0KEV+16.2: POKEV+2. X: SI*2 
IFX>90 AND SI=2 THEHX=90 • 

P0KEXD+ <VR-1> *40.160:P0KEXD+54272+<VR-1)*40.5 
XE=XP:XP=XP+6:IFXP>347THENXP*347 
XR=1558+1NT <XE*12/347 > 

POKEXR+VR*40.160:POKEXR+54272+YRB40.5 
XD=1558+1NT < XP*12/347 > 

POKEXD+VR*40.. 87 = POKEXD+54272+VR*40 ,6 
RETURN 

REM :** MOVIMIENTO ARRIBA ** 

POKESD+4.19 

V=V-6 : IFV<0THENV=0 

RETURN 

REM ** MOVIMIENTO ABAJO ** 

POKESD+4.19 

V=V+6 : IFV>150 THEN V=150 
RETURN 

REM ** RUTINA DE PUNTUACION ** 

IF VR>2THENSC=SC+10:A=A+1 
IFA=5THENSC=SC+100 

PRI NT " «iMMPlPlPMrlPMEaMPMPMRJBBBBBBBBBBBBBBBBBBRBBBBBBBBBBBBBn:]' 1 - cr 

RETURN 

REM ** IMPRIME FUEL ** 

POKESD+4,18 
F=INT(F~CL/50> 

PR I NT " ^M«!!lsW(Ií!lPMPl!M«(iIi!!JiBlrfS IIHII" ; F 

RETURN 

REM ** RUTINA DE EXPLOSION ** 

POKEV+21.1 •• P0KEXD+VR*4@.160: POKEXD+54272+YR*40.. 5 
FOR I=0TO7 : F'OKEXD+I*40. 160: P0KEXD+54272+1*40.5: NEXT 
POKE1985+SH. 87 •' P0KE56257+SH. 2: SH=SH+1 
P0KESD+1.6:POKESD+24.15:POKESD+4.129 

POKEV+10.176:POKEV+11.79:POKEV+21.33:F0RI=6T015STEP.3 = POKESD+24.I NEXi 
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Cenca ** 0 


365 

370 

375 

070 

I 

-'7u 
I 3 

380 

400 

500 

505 

507 

510 

512 

520 

cr •***! 
. j ci 

530 

532 

540 

542 

558 

552 

560 


PGKEV+14,176:POKEV+15¡,79:PÜKEV+21,129:FÜR I=01040:NEXT 
POKEV+12,176: POKEV+13,79 : PÜKEV+21, 193 ■* FÜR I =0TÜ40 : NEXT 
PGKEV+14,164:PÜKEV+15,69:PÜKEV+29,123:PGKEV+23, 128 
FGR I=15TO0STEP-.15:PGKESD+24,I:NEXT 
FGR I=0TG5 : NEXT 

POKESD+24,0:PGKEV+21,1 : PGKEV+29,0:PGKEV+23,0:R=0 
RETURN 

REM RUTINR LñSER ++ 

PGKESD+4,129:PGKESD+5,15 = PÜKESD+1,40:PÜKESD,200 
PRI NT " 

PGKESD+24,2 


ii 


PRINT"TTH»I 
PGKESD+24,5 


610 
612 
620 
622 
630 
632 
640 
642 
650 
652 
660 
665 
699 


ÍftÍÍÍl»ÍÜ>L /!»»»»» 

PR I NT " T^ÍÍ»Í»»ÍÍ»»ÍÍ»LVHÍÍ»ir 

PGKESD+24,9 

PR I NT 11 THÍÍftÍÍÍftÍ»»»»Íft»L lllf 

PGKESD+24,13 

PR I NT " Tí #ÍÍ»**»ÍÍÍBí*ÍÍ*>*l/, 1K\' 

PGKESD+24,15 

PR INT 11 < 

PR I NT " 

PGKESD+24,15 

PR I NT " TTWÍ»ÍÍÍÍÍÍÍÍ»I 

PGKESD+24,13 

PR I NT " TÜDiÍÍ»»»ÍÍ»ÍÍI 


ir 


H 


ii 


n 


n 


ÍÍÍÍ»8tl 
I Ü»ÍÍÍK»I 
I liHil 


H 


M 


M 


PÜKEoD+24,9 

PR I NT " TÜ»ÍBiÍ»ÍÍ»ÍÍÍÍ»»ÍÍI »»l 

PGKESD+24,5 


T NT ,, T>I 


i| 


PGKESD+24,0 

PR I NT " TH9HiftÍ»»ÍÍ»»»liDi»»»ÍÍI 

IFX>173RNDXC185RNDV>75ñNDVC83THENG0SUB295 
RETURN 
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775 
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790 
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800 
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810 


REM m BUCLE PRINCIPfiL ** 

POKE2041,241+N:PGKEV+2,X:PGKEV+3,V 
POKEV+21,3:PGKEV+16,SI 
JV=MGTPEEK<56320 >HMD15 
IFJVflND1THENGOSUB270 
IFJVRND2THENGGSUE230 
IFJYRND4THENGÜ8UB240 
IFJVRND8THENGGSUB200 
IFNOTPEÉK< 56320 > RND16THENGOSUB50Ü 
IFR=5THENGÜSUB340 : GGTG710 


O 

1 

700 

REM m INICIRLIZRCION M 

O 

o 

1 

705 

F=5O0:R=0 

O 

o 

1 

710 

VR=0 : TIí=“000000":N=0 

O 

o 

1 

715 

X=INT < 343#RN¿<1>>:XE=X:XP=X 

1 o 

o 

1 

1 

720 

IFX=<255THENSI=0 

1 O 

o 

1 

1 

"7 •“ trr 

1 Ú— 'J 

IFX>255THENX=X-256 •’ SI =2 

1 O 

o 

1 

1 

i U 

V=INT <15Ü#RND<1> > 

o 

o 

1 

-? ■-cr 
l I' J 

XR=1553+1NT <XE#12/347> 

° 

o 

1 

a r~ 
i + J 

PÜKEXR,160:PGKEXR+54272,5 

o 

o 

1 

750 

XD=1558+INT(XP#12/347> 

1 o 

o 

1 

-i ++ 

r* bU 

PÜKEXD,87:PGKEXD+54272,6 

1 ° 
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8i 1 POKESD+1,100 POKESD+5,219-POKESB+15,28 : POKESB+24,15•POKES+4,19 
815 CL==VfiL < RI GHT* < TI $, 2) ) 

82G GOSUB320:IFF<1THENGOTÜ1500 

825 IFCL/4=INT <CL/4 >THENN-1NT<CL/4>•YR=N 

830 IFN>3THENN=3 

835 IF VR<8THENGOTO858 

840 POKEV+21,1:PQKEXD+2S0,160•PQKEXD+54272+280,5 

845 FGRI=1TÜ2080 : NEXT : ñ=6•GOTO?10 

850 REM ** MOVIMIENTO RLEñTORIO m 

351 M=INT<RND<1>#4>+l 

855 O N M G O S U B 288, 240 .* 2? 0 , 2:8 8 

988 GOTO?78 

1080 REM m DIBUJO DE PRNTñLLR #* 


1805 PRI NT " 72 
1810 PRINT" 
1820 PRINT" 

1030 PRINT" 
1048 PRINT" 


4 O 
*1 


14 W 

ri ri «f 


A * 

/I 


kA 

fif 


W 1 

^:rm" 


o | 

1050 

PRINT" 





o 

1 060 

PRINT" 

u’MMWMMr 

¡Típr "8 H|f 



im- 

o 

1070 

PRINT M 





o 

1 080 

PRINT" i WW 



TlíJ'Wi» 

o 

1 090 

PR I NT " ZWW 




o 1 

1100 

PRINT"SF? 




^sns"; 

o ¡ 

1110 

PRINT"a 




ii • 

, 

° i 

1120 

PRINT"a 


Si 

R 

ii • 

i -> , 

O ; 

O ' 

1130 

PRINT"a 

\4 

6» 

• 

R 

1 0 

o * 

1140 

PRINT"a 


Si 

R 

II * 

.1 

Si 

O 1 

1150 

PRINT"a 


Si 

R 

II • 

1 

116@ 

PRINT"a 9 

¡SFUELR * 

>¡¡ 

KC 

srUNTOSR " 

o 

1170 

PRINT"a 

rs 500ü * 

Si 

R 

. r aj 0 R L " 

o 

11 «0 

PRINT"a 


Si 

R 

™ "" —. ii • 

o 

1190 

PRINT"a 


Si 

R 

II 

. • 

O 1 

1 208 

PRINT"a 


Si 

R 

ii » 

i 

O 1 

121 w 

PRINT"a 


Si t íü-t« 

R 

ii • 

o | 

1229 

PRINT"a 


Si 

R 

ii • 

% 

O I 

1230 

PRINT"a 


Si H SRRBfiRK 

M R 

ii • 

i 

0 

1240 

PRINT"a 




¡S" 

o 

1258 

PÜKE2023, 

168 : P0KE562 

95,9 


# 

O 1 

1260 

PUKE2U4U •’ 

248:POKEV+3 

9,1 : POKEV,176- 

POKEV 

+1,79:POKEV+21,i 

o 1 

1300 

RETURN 


• 



° i 

1500 

REM m FI 

NHL. DE JUEGO ** 



o 

1585 

POKEV+21, 

8:FORL=0TO2 

4 : POKESD+L,0 : NEXT 



1510 POKESD+14,5:POKESD+18,16 POKESD+3,1 : POKESB+24,143 : POKESD+6,240:PÜKESB+4,65 
1515 FR=5389 

1528 PORI=OTO70:PÜKE53265,PEEK<53265>RND239 

1525 FQ-FR+PEEK <SD+27) #3. 5 : HF= I NT < FQ/256 > : LF=FQ-HF*256 

1530 PÜKESD,LF:POKESD+1,HF 

1.535 P0KE53265, PEEK (53265 > OR16 

1548 NEXT I 

1545 POKESD+24,0 

2008 PRINT "El" 

2802 PRINT"3HRS CONSEGUIDO »;SC "PUNTOS" 

2083 PRINT : PRINT"HfiS DESTRUIDO •', SH "NRVES" * 

2825 IF HKSC THEN HI=SC : PRINT" NUEVO RECORD 

¿Ü3U KK i N I " eCORD-= 5 cT HI 

2100 FORN“0TO20 : GETR$ : NEXTX : Z=G : FÜRX= 1T05 *• IFSOSC <X> THENZ=X : X= 11 
2105 NEXTX:IFZ=0THEN2148 
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2110 PRI NT " :?M?M!Mi!ESCR I BE TU NOMBRE : 


■-/ 1 1 cr 
c.i -J 


INPUTR$ IF LEN < fi$ > >:!. 8 THENñ^LEFTí *r R$ . 1 8 ) 

2120 IFZ=5THEN2130 

2125 F0RX=4TÜZSTEP-1 : SC < X+1 > =SC <X > • SC$ *• '<+1 > =Sü$ < X > • SH < ,•• +• 1 > =-SH < X 
2138 SC < Z >=SC : SC $ (Z > ~ñ$ •• SH < 2 > ~SH 

2148 PRIMr'^raiiiiiMniiiilTRELñ DE RECORDS" 


next: 


2150 

PRINT" 





ii 






2151 

PRINT" 

WT 

RE < 5 >:"PONT L 

)S"; TRB 13 

: j—> 

"Nfi 1 

n 






-i -f cr 

¿L. i J C-. 

PRINTTfiBC 

5>;" ";trb<13>; 

—o 








-j r~ cr 
,:l 1 JJ 

FÜRX=1 

T05 

'• PR I NT " WsZ" ;v 

TfiB<5> : S 

C ( 

X >; “ 

roí 

: (12; 

1 • o H 

.* • * 

1 X 

•. É 1 

>TFíB (18) 

2160 

HEXTX: 

x=f 

RE < 8 > 









i 

2248 

PRINT: 

PRI 

NT " wTpMüMpJjTR 

:0 JUEGO ? 

í 

s/n : 

:•" 






2250 

GETRÍ: 

IFA$=""THEN2256 

1 









2260 

l'FRT-" 

S"T 

FIEN PRI NT"73" 

; GOTO138 • 









2278 

IFhT”" 

N " THEN F‘R I NT " flE 

IIOS" : END 









2230 

IF R$< 

*\ II 

" AHDflfO" H " T 

' HEN2250 









2508 

REM m 

TI 

TOLO ** 










2581 

PRINT" 

33* 

* + * & + * + * * ++ + 

********* 

+4 

•444^ 




+ + : 

t;" ; 

MC 

2582 

PRINT" 

+*+ 

************ 


++ 

mm 

km 



+. : " 


2583 

PRINT" 

ral 

& rr ’si a 

:i m a 

« sr 

a 

US 

a 

• _ 

■’tdÜffl 

ar ^ph" 

2504 

PRINT" 


a ■ SI 

■r a w 

a 

m 

a 

“K* 

a 

¡Wjr 

a 

WB" 

“FON 

pp y ! ¡T " 


tisj w a 


^a 

\ W 

a 

-T» 

a« 

; , p« 

^a 

»»r' M 

2586 

PR T NT 











v....»1-J 

PRTNT" 


a <® sr 

sor a ü 

a 

m 

a 

W! 

;-r 

"•ym 

a 

■W" 

2 5 R 2 

PRINT" 


a -if ia 

"muí a i 

a 

“TI 

a 

HH 

a 

fflH 

a 


2583 

PRINT" 


a -w sr 

w a m 

a 

“T» 

a 


a m 

a 

■ s 

i 

25 í 8 

PRINT" 

afüllpi 

^ COMMODORE MRG 

RZÍI- 

•IE" 






2511 

PR.INT" 

WWíESPERfi. it 










-cr i ~i 

1 

RETURN 












3000 

REM m 

IM 

STRUCCIONES 

++ 









3@02 

PRINT” 

3" 











3004 

PRINT" 

m+. 

* * * .+ .+ .+#**** $ 

44+4+4+4+: 

4* 

4444 


mm 

4 + 4: 


• aa 


3886 

PRINT" 

:«se¡ 

_ CONVOY ESTELAR ESTA 

s 

I EN DO 

flT ñC 

RDm 

H 



3088 

PRINT"! 

POR 

NOVES ENEMI 

GAS DEL V! 

ÑC 

IÜ E 

., , -j- 

- r'« i 

ERIG 

R„ " 





r-t <■ v 

M . % i i .* 


3010 

3012 PRINT"CRUCERO ESTELAR PARA HACERLES FRENTE." 
3014 PRINT 

3016 PRINT"LA PRESENCIA V POSICION DE LAS NAVES" 
3018 PRINT"ENEMIGAS PUEDES VERLA EN TU RADAR" 

3020 PRINT"DE ABORDO" 

3022 PRINT"LAS DOS MARCAS DEL RADAR INDICAN" 


:024 PRINT"TU DISTANCIA EFICAZ DE FUEGO." 


3026 PRINT 


3028 PRINT "CADA BLANCO QUE HAGAS. SUMARAS PUNTOS" 


8030 


O 


032 


PRINT"PERO SOLO DESTRUIRAS AL ENEMIGO SI" 

PRINT"LE ACIERTAS 5 VECES CON LO QUE" 

3034 PRINT"APARECE UNA MARCA EN TU PANEL" 

3036 PRINT"MSWULSA UNA TECLAS" 

GETAf : IFA$=""THEN 3038 
PRINT "21" 

PRINT " **************** " 

3044 PRINT"3MCONTRQLR EL DESTRUCTOR CON TU JOYSTICK" 
3046 PRINT"PERO RECUERDA QUE EL MOVIMIENTO DE TU" 

3048 PRINT"NAVE A LA DERECHA SUPONE QUE LAS NAVES" 
3050 PRINT"ENEMIGAS VAN A LA IZQUIERDA V VICEVERSA" 

PR I NT 


3040 


304*. 



3052 


i 


32 
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3054 

3 y 5 6 

3858 
3068 
30'r.*3 
3064 
3066 
4339 
5000 
560 i 

5002 

5003 

5004 

5005 

5006 

5007 
6000 
6003 

6084 

6085 
6810 
68 í 3 

6014 

6015 

6020 
¿T ¡7j O 

6024 

6825 

603Q 

6033 

6034 

6035 

"• *44 J 1H 

6040 

6043 

6044 
6 Ú 4 5 
6033 
6100 
6181 
6102 
6110 
6111 
6112 
6120 
6121 
6122 
7000 


PRINT"EL CONVOY ESTELAR ESPERA QUE DESTRUYAS" 

PRI NT "TANTAS NAVES COMO SEA POSIBLE.. PERO Hñ" 

PRINT"DISPONES HE MUCHO COMBUSTIBLE Y CUANDO" 

PRINT"SE ACABE ACABARA TU MISION" 

PRI NT" HtíMSPULSfi UNA TECLA V FMPTE7P 1 *" 

GETAÍ:IFñ$=""THEH3064 
RETURN 

REM m ENTRADA DE SPRITE3 **■ 

FORS= 15368T015422 : READQ : POKES.. Q : HE NT 
FOR S -15424 Tu 15486 ; READQ : POKES,Q:NENT 
FORS=15488T015550 : READQ:POKES.A:NENT 
FÜRS=i5552T015614:READQ=POKES,Q:NENT 
FÜRS=15616T015678 : READQ : POKES,Q:NENT 
FORS= 15680TO15742 •' READQ : POKES, Q NENT 
FORS=15744T015866 : READQ : POKES,Q : NENT 
F QRS=15808TO15870:READQ : POKES.Q:NENT 
REM m DATAS PARA VISTAS M 

DATA 136, O . 17,88,0,18, 32 , 0, 4 , 64,8, 2, 128,6, 1 , @, O, @, @, @, 0,024,8, 8 , 66 , 8 , 8 
DATA8,8,168, 153,21,8,8,8,9,66,8,8,24,8,6,0,@,0.0,0.128,0,1.64.0.£•62•0 
DATA4,80,0,10,136,8,17 
REM m DATAS NAVE PEQUEÑA m 

DAT A 0,0,0, 0,0,0,0, 0 , 0 , 0 .. 0 , 0 , @, 0,0,0,0,0,0,0,0,32,64,0,73,32,0, 134 14 ,0 
DATA255, 248,8, 150, 144, 8 ,64,32, 8 , 32,64, tí, tí, 0 , tí, 8 , 8 , 9 , 8 , Q, 0 , @, tí, tí, O 0 , @, 0 , 0 
DATA 0 ,y, 0 , 0 

REM m DATAS NAVE MEDIA-PEQUENfi ** 

DATH tí,tí,6,A,0,0,0,0,ñ,3,242,0,24,i 63,0,56,67,128,112,225,132,161,88,168 
DAT IT 1 53,35,32, 153,35, 32, 160, 160,168,1 12,65,132,56,3, 128,24,3,8,8 , 2, 8 , tí, 8 
DATH tí , tí , 0 , 0,0 , 0,0 , tí , 0 , 0,0 , 0 , 0 , 0,00 
REM ** DATAS NAVE MEDIA-GRANDE M 

DATA ©,0,0,0,e,y, 0 ,0,0,4,8,128,12,252,132,28,72,224,56,48,112,112,120,56 
DATA168,180,2tí,153,183,228,160,180,28,153,183,228,162,73.-20,114,43,56,56 
DATR 0 , 11 £, 28,8,224,12, tí, 132, 4 , tí, i 28,8, tí, ©, 0 , 0 , @, 0 , g , tí 
REM m DATAS NAVE GRANDE M 

DATA 0,tí,0,2,tí,64,6,0,36,14,126,112,38,36,128,68.24,69,129,126,30,144.153 
DATñ 3,15?,153,243,166,153,5,168,153,5,153,133,249,145,38,137,121,36,158 
DAT A 68 . £4,68,38,0, 129.14, @. 11 £, 4. tí , 4 A . £ . ñ, 44 , tí . tí . tí, tí . tí , tí 
REM m DATAS EXPLOSIONES W. 

DATA 144,tí,tí,36,32,132,15,3,138,30,3,£24,61,1 7 ,242,128,112,128,248•168,68 
DA 1 A1 7b,■ 196, 1 fc 1,3fc, 68, 161,36,68 , 175,33, 136, 248, 168, 125,60, 114, 136, 38,1 
Dh 1 Hl í i - , i 3, 18, 43 ce , í‘ , 115, 134, , 2, 143,8, -34, 13,4, tí, 8, tí, 4,4,96, 97,4 
DATfl í 44 , tí, tí, 36, 39, .132, 136,3, 132,24,9, 128, 61, 17,242,26, 112,0, 248, 168,68, 169 
DATA39,4,32, tí, 64, 161,36,68, 35, 36, 1 96, 128, 168, 125, tí, 11 4 , 136, 30,1, 170,73, 10 
DATA 8 ,7,115, 1 38,3,2,128,3,168,16,2,O,tí,tí, 4 ,£,34, 97 , 4 


D 


Q , 1 Q“ 


» ¿7 * • 

...» .* 


RETURN 


123.. .192.. 160 , i 6,2,0, G, 0, 4,2,96.97,4 
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50000 

500 i 0 
50020 
50030 
50040 
50050 
50060 
50070 
50030 
50 1 00 

501 1 0 
50120 
50130 
50140 
50150 
50160 
50170 
50130 
50 '! 00 


5020M 

50210 
50220 
50230 
50240 
50250 
50260 
50270 
50230 
50290 
50300 
50310 
50320 
50330 
50340 
50350 
50360 
50370 
50330 
50390 
50400 
50410 
50420 
50430 

50440 

50450 

50460 

50470 

50430 

50490 


REM############################## 
REM## ## 

REM##" 14“-“,-IT \*l "## 

REM##" & ”## 

REM##" ,-ir ““"I - •’## 

REM##" "## 

REM##" RUTÜR- L,-,t "## 

REM## ## 

REM############################## 

print":t 

P0KE53272,23 : PRI NTCHRí < 8 > 

pr i ni " 

p r i nt "»»»»fe*** * i ft--, r / 

PR I NT " íWhtl > 3TFÜHUCTÜ NfiTRICES " 

PR I NT " > aMHLCULÜ “ETERMI NRNTEÜ" 

GETRÍ•IFRÍ=""THEN50170 
IFRÍO " 1" RNBRÍO" 2 " THEN50170 
IFRí="2"THEN50700 
CLR 


****rr 

a***:3" 


REM** 

REM** 

REM** 


PRODUCTO DE MATRICES 


PRiNT"™«i»i*ii^i»ian-r-/-i r — \*i _-,--tnm**n" 

PRI NT" kjüíth NTRÜDUCE ORDEN \RTRICES - " 

PR I NT " 3ÍWMUFDEN NflTRIZ * • " 

INPIJT":?»Ílk-ILñS sT : N : I FN=0THENPR I NT" TH" • GOTO50290 
I NF'IJT " WH»»k.-OLUMNflS =<" J M : I FM=0THENPR I NT " TT1" : GnTO5A30fl 
PRINT"3SOTkTRDEN \FITRIZ I •" 

pr i nt " lrs ar?"; m 

INPUT " KWilk-OLUMNñS al" ; P TFP-©THENPRI NT " Til" • GOT0503:30 
DIMR(N,M>,B<M, P>,C<N,P> 

PRINT"3®»»Il -.NTRÜDUCE ELEMENTOS : WW" 

F ORI = 1TON : FOR J=1TÜM 

PR I NT " :0*H" < " I", " J " > •= " ; : I NPUTñ < I, J > 

PRINT"n 
NENTJ,I 

PRINT"k7M*ÜN CORRECTOS < ¥ / / > ?" 

GETRÍ • I FRÍO " S " RNBfiíO- " N" THEN50410 
IFñí="N"THENPRINT"1 
PRINT"! 

F ORI = 1TQM : FORJ=TTÜP 

PR I NT" =rü*8! < " I " , " J " > = " ; : INPUTB( I, J > 

PRINT"! 
nextt,I 

PRINT'VTiiltÜN CORRECTOS < ¥ / / > ' 

GETRÍ : I FRÍO" S " RNDRÍO " N " THEN59490 




Luis Pellicer Lorenzo, lector de 
Vigo, nos envía este interesante pro¬ 
grama, de tipo matemático que él ha 
llamado MAT S¿ DET \ que permite 
realizar el producto de dos matrices 
de cualquier orden, siempre sin pasar¬ 
se claro, ofreciendo también la posi¬ 
bilidad de cálculo de determinantes. 
Según datos de su autor, que hemos 
podido constatar, el programa es 
capaz de resolver un determinante de 
7X7 en unos 4 segundos. El programa 
calcula un determinante triangulari- 
zando la matriz correspondiente. 
Además no plantea ningún problema 
a la hora de introducir los datos, ya 
que, a través de una serie de explica¬ 
ciones y preguntas, el programa guía 
completamente al usuario. Espera¬ 
mos que todo este tipo de programas 
científico-matemáticos sean del agra¬ 
do de nuestros lectores. 
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50500 I Ffi$= " N " THENPR J NT " "1 

50510 PRINT "IT 

50520 R1~TI : FOR1=1TON 

50530 IFI=N/2QRI=N/2+- 5THENPRINTTfiB<2 >"4 - = h."; 
50540 PRI NTTfiB < 7 > " al k." ; 

50550 FORJ=1TÜP 
50560 F O R S = 3. T O M 


" : GOTO50440 


58578 

C <I.J >™R<1,3 

58580 

NEXTS 

58538 

CO, J> = INT<C 

58600 

PRINTCd, J> ; 

58618 

NEXTJ 

50628 

PRINT" 3 k" 

50638 

NEXTI ; R2=TI• 


50648 PR 1 NT " Me?: 

50650 GET m : I Fñ$= " " THEN50650 
5 y66 0 k UN 
50700 
50710 
50720 


,L.¥* I 


pu r» 


50730 


RETI## 

REM## CfiLCULÜ DETERMI NfiNTE 


REI* 


50740 
5 U 7 5 y ! !!__ R 
50760 
50770 
50780 
50730 
50800 
50810 
50820 
50830 
50848 
50850 
50860 
50870 
50880 
50880 
50900 
50310 
50328 
50338 
50340 
50350 
50368 
50378 
50380 
50338 
51088 
51810 
51028 
51838 
51048 
51858 
51068 
51188 
51110 
51128 
51138 
51148 


m: 3?r 
", N 


pr i nt " ,-lt - 

INPUT " hJflih NTRODUCE ORDEN “ETERMI NfiNTE • 
IFN= 0 THENPRINT ,, m 
DI Mfi < NN > . S < N > 

PRI NT " NTRODUCE ELEMENTOS : m n 

FORI= 1 TON•FORJ= 1 TON 

PR I NT " a< " 1 ,! , " J " > = H ; : INPI ITfi U . .T :• 

PRINT"H 
NEXTJ 3 I 

PR I NT" fcJTiH^ON CORRECTOS < # / / > ?" 

GETfi* : I FfiTO " S " ANDASO " N " THEN 50868 
I Ffi$= " N " THENPR I NT" H 
PRINT“n 
R 1 =TI 

FOR I = 1 TON -1 
FORT»I+ 1 TON 
B-fi < I T > • C=fi '• I .* í > 

IFB= 0 fiNBC= 0 THEN 50380 
IFC= 0 THENGOSUB 51188 : GOTOS 8300 
FORS=ITON 

R S .• T ) =fi ( 3 .* T ) ~ ( E 2 C •* #ñ ( . J 

NEXTS 

NEXTT,I 

L= 1 : FORR- 1 TON 

L=fi (R.. R > #L 

NEXTR 

R2=T í •' PR I NT" :^»llsfrOLUC ION • " < ( -1 > TD > *L 

PR I NT" mnm\ I ENEO EMPLEADO : u < R 2 ~R l > /68 " SEfi. " 

pr i nt " =n ,- l »* ,••/* ; 

GETfií •• I Fñ$—“ " THEN 5105 ñ 

RUN 

D=D +1 

FORK= 1 TON 

S < K > = ñ < K, T -1 > : fi < l<, T -1 > =fi < K, T > 

FKK . T > =S < K > 

NEXT ; RETURN 


":GOTO50778 


" : GOTO50818 
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5 REM **#####**#*****##*##^#^ 

10 REM * DIBUJO A/R JQVSTICK * 
15 REM * # 

20 REM * DRNIEL COCHO <1934) * 

25 REM **##****##*^*#^*#****** 

26 GOSUB450:GÜSUB750 

27 REM 


Z>i 


8 REM ** PREPRRñCION DE LR A/R ** 

29 REM 

30 PRCP=2#4096:P0KE53272,PEEK<53272)0R8 
35 PRCP=2#4096•P0KE53272,PEEK<53272 >0R8 
40 P0KE53265,PEEK C 53265)0R32 

50 FORIsPRCPTOPRCP+7999 : POKE1,0:NEXT 
60 FOR 1 = 1024TO2023 •* POKEI, 5 : NEXT 

65 REM 

66 REM ** COLISION CON EL BORDE ** 

67 REM 

70 IFXC0THENX=0 

71 IFX>319THENX=319 

72 IFY<0THENV=0 

73 IFY>199THENV=199 

74 REM 

75 REM ** Vfl R LEER EL JOY ** 

76 REM 

80 GOSUB400 
90 GÜTÜ600 
3 C| 7 REM 

398 REM ** LEE EL JQVSTICK ** 

399 REM 

400 JV=PEEK<56320) 

410 FR=JVRND16 

420 J V=15-(JVflND15) 

430 RETURN 

439 REM 

440 REM *# PRESENTACION INICIAL ** 

441 REM 

450 PRINT"¡T:PRINT:PRINT:PRINT:PRINT"4 


Daniel Cocho Gcrtzález. lector de 
Commodore Magazine en Madrid, nos 
remite un interesarle programa que él 
ha llamado DIBUJO JÓY. nombre 
muy adecuado para este programa, 
ya que permite realizar dibujos con el 
joystick, sobre la pantalla de alta 
resolución de; 64. El programa co¬ 
mienza presentaneo en pantalla las 
instrucciones par^ '.a realización de 
los dibujos. Es:a> instrucciones son 
sencillas; para dibujar ana línea basta 
mover el joysiick en la dirección 
deseada, que puede ser horizontal, 
vertical o diagonal. En cualquier 
momento, se puede pulsar el botón de 
disparo del joysiick lo que equivale a 
“levantar el lápiz del papel", de esta 
forma el punto de a de imprimir, 
aunque puede seguir moviéndose por 
la pantalla. 

Después de las instrucciones, el 
programa pide las coordenadas X, Y, 
para situar el punto inicialmente so¬ 
bre la pantalla. A partir de aquí todo 
depende del dibujante, que con un 
poco de práctica podrá comprobar 
cómo queda, sobre la pantalla de alta 
resolución, cualquier dibujo qué se le 
ocurra. 


460 PRINT 
470 PRINT 
480 PRINT 

490 PRINT 

491 GETR$ 

495 PRINTM" 

496 RETURN 

497 REM m RUTINA DE IMPRESION ** 

498 REM 

500 QG=INT < X/8 > 

510 MW=INT í V/8 > 


DIBUJO EN R/R CON EL JOYSTICK" 
CK DESPLAZA EL PUNTO 1 
A” 


H 


PRINT:PRINT:PRINT:PRINTTAB< 6 >"HEL JGYSTI 
PRINTTAB{6>"POR LA PANTALLA.EL BOTON PAR 
PRINTTAB<6)"DISPARAR IMPIDE LA IMPRESION 
PR I NT • PR I NT : PR I NT ; PR I NTT AB < 6 > " ITF'ULSA UNA TECLA PARA EMPEZAR' 
IFA$=""THEN491 
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530 

540 

550 

560 

563 

570 

571 
600 
610 
620 
630 
640 
650 
660 
670 
680 

630 

631 

632 

633 
635 
700 
705 
718 
713 

720 

721 
750 
760 
770 
780 
730 
800 
810 
820 
830 
840 


JJ=VfiND7 

V V - P R U P+W W * 3 2 ü+8 * Q Ü+J J 
XX=7-<XAND7> 

POKEVV,PEEK<VV>ÜR<2TXX> 

RETURN 
REM 

REM ** MUEVE EL PUNTO ** 

REM 

IFJV= 1 THENV=V-1 : REM *ARR.IBA* 

IFJV=2THENV=V+1 : REM *ABAJÜ* 

IFJV S =3THEN70 : REM *SIN EFECTO* 

IFJV=4THENX=X-1:REM *IZQUIERDA* 

IFJV=5THENV=V-1 : X~X-1:REM *IZQ-ARR* 

IFJV=6THEHV=V+1:X=X-1:REM *IZQ-flBfl* 

IFJV=7THEM70 ; REM #SIN EFECTO* 

IFJV=3THENX=X+1 : REM *DERECHñ* 

IFJV=9THEHV=V-1:X=X+1:REM *DER-flRR* 

IFJV=10THEMV=V+1:X=X+1:REM *DER-ñB* 

REM 

REM ** DECIDE Lfl IMPRESION O NO ** 

REM 

IFFRO16THEH70 

GOSUB500 

FORT =1T05■NEXT 

GOTO70 

REM 

REM ** PUNTO AL ORIGEN DESEADO ** 

REM 

PRINTTAE <3>"31NTRODUCE LAS COORDENADAS DEL ORIGEN":PRINT 
PRINTTAEO) "EN EL QUE VAS A EMPEZAR" : PRIHT : PRIHT: PRINT 


0 iíii n 


OCLvW^X 

^ " -«O 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GET£$ 
PRINT'TJ* 
RETURN 


INPUT ,, H X (DE 0 ñ 313> " ; X 
INPUT" V (DE 0 A 133>";V 

PRINT:PRINT:PRINT:PRINTTflB<3)"<EL JOVSTICK DEBE SER CONECTADO AL" 
PR INTTAB < 16 >" IÍPORT 2 " - 

PR I NT : PR I NT : PR I NT •' PR I NTTAB ( 12 > " nPULSfi UNA TECLA " 

IF£$ : ="" THEN820 


hn novo/digit 

■^ii^ microínform atica 

C/ Aragón, 472 Telf. (93) 246 27 75 
-BARCELONA-13 

SU TIENDA DE INFORMATICA 
CONOZCANOS!! 



TENEMOS MUCHAS COSAS PARA: 



COMMODORE-64 VIC-20 SINCLAIR ORIC 

Y OTROS 


— Si no tenemos lo que busca se lo encontraremos en un tiempo record 

y a un precio minimo 

DISPONEMOS DE CLUB DE VIDEO JUEGOS 

SI NO TIENE MICROORDENADOR, 

LE DEJAMOS PROBAR NUESTROS EQUIPOS SIN COMPROMISO 
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Supongamos que se presenta la 
oportunidad de conectarle a nuestro 
Vic 20 una impresora que utilice el 
interface estándar RS-232. Serían va¬ 
rias las posibles soluciones, pero la 
que aportamos en este artículo es tan 
válida como cualquier otra. Consiste 
simplemente en fabricarnos nuestro 
propio interface, que posibilita que el 
ordenador se ponga de acuerdo con la 
impresora. 

Básicamente, la función del circui¬ 
to consiste en normalizar los niveles 
de tensión de las señales. El montaje 
se divide en dos circuitos. El primero 
es la fuente de alimentación, que 
proporciona las tensiones adecuadas 
para que funcione el interface. El 
segundo es el interface propiamente 
dicho. 

Después de haber sido comproba¬ 
do con diversas impresoras, el fun¬ 
cionamiento fue óptimo. Algunos de 
los modelos utilizados en la prueba 
son la IDS Paper 440, Anadex 
DP8000, Decwriter LA 120, etc., pero 
trabajará igualmente con otros mode¬ 
los. 


FUNCIONAMIENTO CLASICO 

En muchos microordenadores se 
ha dispuesto internamente un disposi¬ 
tivo conocido como UART (Universal 
Asyncronus Receiver Transmiter), pa¬ 
ra encargarse de las tareas relaciona¬ 
das con las comunicaciones con el 
mundo externo. Físicamente, la 
UART es un circuito integrado que se 
complementa con otros chips, que 
disponen de buffers, encargados de 
normalizar los niveles de las tensiones 
en las líneas. 

Cuando en un circuito los chips 
utilizados corresponden a la tecnolo¬ 
gía TTL (Transistor-Transistor-Lo- 
gic), los niveles de tensión que apa¬ 
recen son siempre 0 ó +5 voltios. Sin 
embargo, para la transmisión de los 
datos se requieren niveles de +0 y 
—1.0 voltios, por los que es necesario 
realizar la conversión. 

Para terminar de matizar sobre la 
UART, digamos que encuentra entre 
sus posibilidades la disposición de los 
datos que llegan en serie, un bit 
después de otro a paralelo, acumu¬ 
lando el número necesario de bits 



para constituir el byte a su salida. 
Igualmente puede hacer lo contrario, 
recoger varios bits simultáneamente e 
ir transmitiéndolos uno a uno, por 
orden. También temporiza la entrada 
y salida de datos, de tal manera que la 
transferencia se efectúe a una deter¬ 
minada velocidad. Paralelamente ge¬ 
nera diversas señales de control, que 
facilitan el “apretón de manos”, que 
quiere decir que siendo afirmativo la 
comunicación del dato ha sido co¬ 
rrectamente recibida. 

En el momento en que se inició la 


fabricación del Vic 20, Commodore no 
pudo disponer de la UART que habría 
requerido, por lo que optó por emu¬ 
lar mediante software el interface. El 
chip utilizado fue un clásico llamado 
VIA 6522 (Versatile Inteface Adaptor). 
un dispositivo extremadamente com¬ 
plejo que describiremos en un futuro 
artículo. 

El usuario puede acceder directa¬ 
mente a las líneas del VIA, por medio 
de port de usuario del Vic 20. Sin 
embargo, los niveles de tensión utili¬ 
zados corresponden al estándar TTL. 
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Esto imposibilita la conexión directa 
de la impresora. Por lo tanto, necesi¬ 
taremos algún tipo de buffer que 
solvente los problemas de adaptación 
de los niveles. En el montaje que 
presentamos se incluye la circuitería 
necesaria. 

Otro importante factor a tener en 
cuenta es la velocidad a que puede 
trabajar la impresora, que principal¬ 
mente queda limitada por los compo¬ 
nentes mecánicos de la máquina. 
Como es lógico, la velocidad con que 
afluyen los datos es mucho mayor 
que la velocidad con que se pueden 
imprimir físicamente los caracteres. A 
partir de aquí volvemos a encontrar¬ 


nos con la palabra buffer , pero en este 
caso su significado es distinto. Viene 
a ser una memoria tampón en forma 
de memoria RAM, que va dispuesta 
en el interior de la impresora. En ella 
se almacenan los datos que serán 
impresos. Mientras exista espacio va¬ 
cío en el buffer la impresora seguirá 
aceptando datos. Para proporcionar¬ 
le esta información al ordenador exis¬ 
te una línea llamada DTR (Data 
Terminal Ready). Normalmente los 
sensores de final de papel también 
están conectados a la línea DTR. 

En un interface .sencillo, DTR se 
conecta a la línea CTS (Clear To 
Sentí) del ordenador. Cuando se llena 
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Figura 1. Esquema teórico del interface RS-232. 
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el buffer , la impresora pone DTR en 
estado bajo. Cuando el ordenador 
observa que la señal en CTS está en el 
nivel bajo, deja de enviar datos a la 
salida hasta que vuelve a ponerse en 
estado alto. Aunque suena promete¬ 
dor, es una pena que el interface RS- 
232 para el Vic 20 no trabaje así. 

El conjunto de señales DTR, CTS, 
RTS, DCD, etc.,'además de la infor¬ 
mación correspondiente, es quien se 
encarga de efectuar el apretón de 
manos. El único problema es que el 
sistema operativo del Vic no com¬ 
prueba el CTS. Si se establece el 
apretón de manos, el sistema operati¬ 
vo tampoco funciona de esta forma. 
La causa es simplemente que el soft¬ 
ware necesario no está presente en la 
máquina. 

Por esta razón, el software y el 
Ínter face que describiremos trabajan 
como un sistema de tan solo dos 
líneas; transmisión de los datos y 
masa. La recepción de datos hacia el 
ordenador también ha sido prevista 
para quienes deseen alimentar al Vic 
con datos. El DTR ha sido incluido 
por dos razones. En primer lugar, 
alguien podría querer escribir su pro¬ 
pio programa en código máquina, 
para manejarla. En segundo se podría 
detectar que algo ocurre observando 
que el piloto de testigo conectado a 
DTR está apagado, para que ponga¬ 
mos la impresora en orden. 

La velocidad de transferencia de 
datos adoptada es de 600 baudios, lo 
suficientemente rápida para la mayo¬ 
ría de las aplicaciones, sin que cause 
problemas con el DTR. Si la impre¬ 
sora en cuestión no pudiera adaptarse 


CONECTOR DE ALIMENTACION 
VISTA FRONTAL 







Figura 2. Esquema teórico de la fuente de alimentación. 
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a ella, se puede reducir a 300 baudios. 
■ También se puede hacer que el Vic 
vaya más deprisa, pero si la impre¬ 
sora recibe más datos que los que 
caben en su buffer, se perderán al¬ 
gunos. 

Todo lo que se requiere para con¬ 
trolar un dispositivo RS-232 desde un 
Vic 20 es algo de hardware , que 
convierta los niveles TTL del Vic a 
otros de más y menos 10 voltios. 

Los circuitos integrados contro¬ 
ladores de líneas utilizados son los 
MC1488 y MCI489, que proporcio¬ 
nan las tensiones de línea adecuadas. 
Se utiliza también un tercer chip, el 
7404, que es un sextuple inversor. 

Los condensadores C7 v C8 redu¬ 
cen la velocidad de parpadeo de los 
LEDs, para que sean más fáciles de 
visualizar. Cuando se está desarro¬ 
llando un programa en el que se 
deberá utilizar impresora, pero no 
está en la parte del problema en la 
que se trabaja, el LED que indica la 
transmisión de datos es muy útil, para 
indicar una operación de impresora 
sin necesidad de tenerla conectada. 

La segunda parte del montaje es la 
fuente de alimentación. El transfor¬ 
mador reduce la magnitud de la 
tensión de la red. Posteriormente se 
realiza una rectificación de media 
onda con cada uno de los diodos. La 
disposición de cada uno de ellos 
produce que se obtenga tensión posi¬ 
tiva los terminales de un condensador 
y tensión negativa en los del otro. A 
continuación, los chips estabilizado¬ 
res de tensión 7812 y 7912, permiten 
disponer a sus respectivas salidas de 
+ 12 y -12 voltios. La tensión de +5 


InterfaceJi 
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voltios, necesaria para alimentar el 
7404. se obtiene a partir de otro chip 
similar, el 7805. 

El botón de Reset no tiene ninguna 
misión especial en el montaje, sim¬ 
plemente se ha añadido para poder 
inicializar el ordenador sin volver a 
él. 

Ambos circuitos han sido alojados 
en respectivas cajas de plástico, fácil¬ 
mente adquiribles en el comercio. El 
cable que conecta con la impresora 
termina en un conector tipo D de 25 
patillas, aunque se puede utilizar 
otro tipo adecuado. Para la conexión 
al Vic se recurre al conector clásico, 
que se ajuste a la configuración del 
pon de usuario. 

Los circuitos impresos a utilizar 
son los que aparecen en las figuras 



Figura 4. Pon de E/S del Vic 20. 


ICt MC1488 


IC2 MC1489 


IC3 7404. 


anexas, aunque cada cual puede redi¬ 
señarlo como gu^te. 

Los circuito> m:egrados MC1488 y 
1489 tienen sus equivalentes en las 
versiones 7518,' \ "5189 de Texas 
Instruments, por si hubiera dificultad 
en lozalizar los primeros. Una vez 
finalizado el montaje. >i no hay im¬ 
presora conectada, solamente lucirá 
el LED de encendido. Si se encen¬ 
diera algún otro habrá que verificar, 
pues existirá un error en el montaje. 
Después se conecta la impresora, se 
activa su interruptor de alimentación, 
encendiéndose el LED correspon¬ 
diente a DTR. Si hasta aquí está todo 
bien, el interface estará listo para su 
manejo. 

Ahora sólo queda preparar el soft¬ 
ware adecuado para que se produzca 
la impresión. Existe un número de 
características que sufren ligeras va¬ 
riaciones, según el modelo de la 
impresora. Se dispondrá la impresora 
de acuerdo con las características 
proporcionadas por el fabricante, de 
la siguiente manera: 

• Opciones de paridad-seleccione 
sin paridad. 



Figura 5. Diagrama del conector 
RS-232 tipo D. 
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Figura 3. Diagrama de patillas de los circuitos integrados. 
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Figura 8. 


Circuito impreso para la 


fuente de alimentación. 


RS 232 



Figura 6. Conexión entre dispositivos. 


• Palabras de 7 u 8 bits-seleccione 
palabras de 8 bits. 

• RS-232 o bucle de corriente- 
seleccione RS-232. 

• Alimentación automática de lí¬ 
nea-seleccione on consulte el software 
de más adelante). 

— Códigos de control de la impre¬ 
sión-seleccione off. 

— Caracteres por línea-seleccione 
80. 

— Modo carácter/línea-seleccione 
80. 

— Xon/Xoff-seleccione off. 

— Velocidad de transferencia-se¬ 
leccione 600 baudios. 

Para que la VIA del ordenador 
actué como un povt RS-232, será 
necesario hacer una definición en dos 
registros. Estos con “Control”, para 
la velocidad de transferencia, la longi¬ 
tud de la palabra, bits de Stop y 
“Comando”, para la paridad, el apre¬ 
tón de manos, dúplex y marea o 
espacio transmitidos. Disponiendo la 
impresora como ya se ha dicho, no se 
necesita el registro de Comando. El 
registro de control está localizado en, 
la dirección decimal 659. Se puede 
definir mediante un POKE si se 
requiere. Una vez que se ha verificado 
que la impresora está con las caracte¬ 
rísticas definidas, se teclea: OPEN 2, 
2, 0, CHRS (7), con alimentación de 
línea automática, 600 baudios y pala¬ 
bra de 8 bits. También se podría 
teclear: OPEN 2, 2, 0: POKE 659, 7. 

El primer número que aparece tras 
OPEN es el número del fichero lógi¬ 
co. Si es menor de 127, el ordenador 
no generará alimentación de línea. 
Puesto que sólo podemos abrir 
(OPEN) un povt RS-232, es más fácil 
utilizar 2 ó 200 como números de 
fichero, pero tampoco hay porque 
ceñirse a estos números. Después de 
introducir el comando de apertura, 
no habrá ocurrido nada que pueda 
verse, pero dentro del ordenador han 
ocurrido muchas cosas. Lo primero 
que ha hecho ha sido realizar un 
CLR. Si la instrucción de apertura se 
ejecuta en un programa después de 
cualquier DIM o sentencia con varia¬ 
bles, se perderá. Abrir siempre el port 
RS-232 al comienzo del programa, 
asegurándonos que el programa no 
puede hacer un bucle hacia atrás 
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hasta allí. También se comprobará 
que se han perdido 512 bytes de 
memoria. Son tomados por el Vic a 
partir del límite superior a la zona de 
memoria destinada al BASIC, pro¬ 
porcionando buffets de 256 bytes 
para transmisión y recepción de da¬ 
tos. Si previamente hubiera algún 
programa allí, se perdería. Por tanto, 
hay que asegurarse de que queda 
suficiente memoria para el porí. 





Figura 10. Montaje de la fuente. 


Una vez en este punto, compruebe 
que existe DTR en el interface, teclee 
CMD2. La impresora deberá respon¬ 
der con “READY'\ Ya se puede 
teclear cualquier cosa de hasta una 
longitud de 80 caracteres, destinada a 
la impresora. 


Aníbal Pardo 
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Figura 9. Montaje del interface. 


Figura 7. Circuito impreso para el interface 
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INTERFACE 


FUENTE DE 

LISTA DE MATERIALES 

AUMENTACION 

RESISTENCIAS 


R1 = 560 ohm 1/2 w 


CONDENSADORES 


Cl. C2 = lOOjLtf 63v 

C3, C4, C5 = Ifif 35v Tántalo 


SEMICONDUCTORES 


DI, D2 = 1N4004 

IC1 = MC7812 

IC2 = 7912 

IC3 = 7805 


VARIOS 


1 Caja para montaje 

1 Transformador 220 v/15+15 300 mA 

1 Conector de cuatro contactos (Ma¬ 
cho y Hembra) 

1 metro de cable paralelo con clavija 

1 interruptor 

1 LED rojo 


LISTA DE MATERIALES 


RESISTENCIAS 


R1 = R2 = R3 = 220 ohm 1/4 vv 


CONDENSADORES 

C1 = C2 = 47/xf 16v 

C3 = C4 = C5 = C6 = 100 kpf 


SEMICONDUCTORES 

IC1 = MC1488 
IC2 = MC1489 
IC3 = 7404 

VARIOS 

3 LED (Rojo, Naranja, Verde) 

1 Conector “D” de 25 pines 
1 Conector para el VIC 20 de 12 pines 
1 Caja para montaje 
3 Zócalos dual-Line de 14 pines 
1 Pulsador para RESET 


' * 

El centro MICRO SPOT, especializado en informáti- Consulte sobre nuestros cursos de BASIC y PAS- 

ca, que ofrece la oferta más amplia en microordena- CAL para estudiantes de BUP - COU - Escuelas 

dores y una variada gama de periféricos, impreso- Técnicas - Universitarios - Profesionales - Empre- 

ras, unidades de cassette y disquette, monitores co- sas y adultos en general, 
lor y F. V., etc. Disponemos de completos listados 

de software en cinta y disco, para programas téc- Por vez primera en España cursos de iniciación y 

nicos, de aplicación, educativos y juegos. tarifas especiales para amas de casa y para la ter- 

Accesorios diversos, manuales, 
libros técnicos y revistas espe¬ 
cializadas. 


Conde de Cartagena, 9 (zona Retiro) - Madrid-7 - Tels. 251 32 04/05/06/07 



ELEKTROCOMPUTER 

BARCELONA****** 


Necesita representantes 
a comisión para equipos 

de gestión. 

• • 

Se requiere buena presencia, 
conocimientos de Informática 

disponibilidad. 

• • 

Interesados llamar al teléfono: 

218 06 99 
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Cómo diseñar 
juegos para 

ordenador 

(capitulo 3) 

Los juegos de aventuras 



Básicamente, los juegos de aven¬ 
turas son programas que intentan 
emular situaciones reales (o casi rea¬ 
les): buscar un tesoro en una isla, 
encontrar un asesino, etc. Son juegos 
en los que el jugador tiene que 
desarrollar dotes de observación e 
ingenio mental para poder terminar¬ 
los. La persona se sirve del ordenador 
como si fuese un vulgar sirviente que 
le desplaza, mire cosas, coja objetos y 
realice otras acciones de diversa ín¬ 
dole. Pero el ordenador también le 
pone dificultades, no ya como el 
sirviente que hemos visto antes, sino 
en forma de sucesos externos. Si nos 
estamos desplazando por una casa 
nos podrá decir que no podemos 
pasar por una puerta, que está cerra¬ 
da con llave, o que al subir unas 
escaleras se han caído y nos hemos 
matado. Estos programas proporcio¬ 
nan horas de diversión y no son 
excesivamente difíciles de realizar, 
constituyendo una introducción de 
indudable atractivo al mundo de los 
juegos. 

Partes del juego 

Una vez que hemos decidido crear 


un juego de aventuras hay que definir 
las distintas partes que lo forman. La 
primera debe ser el lugar donde 
sucede la acción. Una casa, una 
caverna, una isla pueden servir per¬ 
fectamente para nuestro propósito. 
Evidentemente, sería mucho más in¬ 
teresante disponer de un escenario 
ilimitado, en el que nos pudiésemos 
desplazar a cualquier sitio, pero la 
memoria necesaria también sería ili¬ 
mitada, por lo que tendremos que 
olvidar la idea. En nuestro caso 
vamos a elegir un castillo abando¬ 
nado (con la excepción de alguna 
sorpresa que podamos encontrar) con 
dos pisos y seis habitaciones en cada 
piso. En este momento se debe tomar 
la primera decisión, podemos elegir 
entre dejar una configuración del 
castillo fija (las puertas y escaleras en 
el mismo sitio, aunque no los demás 
objetos) o variable, de modo que 
nunca se pueda saber cómo es el 
castillo. Por sencillez de diseño, elegi¬ 
remos una configuración fija, defi¬ 
nida en la figura 1. 

A continuación hay que definir al 
jugador, en algunos juegos es una 
sola persona que tiene unas caracte¬ 


rísticas que van cambiando con el 
tiempo (fuerza, agilidad, inteligencia, 
experiencia), mientras que en el otro 
sistema cada orden que damos se 
refiere a un grupo de personas —co¬ 
mandadas por nosotros— que sufren 
diversa suerte, según su estado, en 
este caso nos podemos encontrar con 
situaciones en las que tengamos 20 
hombres y a los tres minutos, después 
de una pelea, sólo tengamos cinco. 
Este segundo caso es mucho más 
completo y difícil de manejar. Los 
pertrechos que podemos llevar de¬ 
penden del número de personas que 
haya. La comida varía con la misma 
proporción, etc. Nosotros optaremos 
por la simplicidad y supondremos 
que el “aventurero” está solo. 

Una vez definido el escenario y el 
jugador, le toca el turno a los objetos 
y bichos que estén en el castillo. Unos 
serán beneficiosos; otros, peligrosos, 
y algunos no tendrán ningún objeto 
(excepción hecha de la función de 
despistar). Incluso pueden tener datos 
u objetos ocultos, que no se ven hasta 
que lo miremos bien. En nuestro caso 
vamos a definir los siguientes objetos: 
MONEDA MAGICA 
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ARGON ENCANTADO 

MONSTRUO DE LAS 

GALLETAS 

COLLAR DE LOS 

DIOSES 

LIBRO 

REVISTA COMMODORE 
MAGAZINE 
CAJA DE GALLETAS 
CUADRO ANTIGUO 

Algunos objetos tienen una misión 
específica, como es el caso de la 
moneda mágica, que nos sirve para 
salir del castillo y del monstruo de las 
galletas con una misión que no con¬ 
viene revelar ahora (ya la descubirá 
algún inocente), mientras que el libro, 
la revista y el cuadro pueden tener 
misiones distintas cada vez que se 
juegue. 

A continuación nos toca definir las 
acciones que podemos realizar, el 
mínimo número de acciones que toda 
aventura que se precie debe tener 
consiste en: 

Ve: sirve para moverse en una 
dirección, normalmente (como en 
nuestro caso) va seguida de un punto 
cardinal. 

Haz: suele ir seguida de la palabra 
INVENTARIO y nos dice las cosas 
que llevamos encima. 

Mira: seguida de un objeto nos da 
una descripción más detallada de él. 
En algunas aventuras también se 
acepta MIRA HABITACION que 
nos da una descripción de la habita¬ 
ción en sí. En este caso no es nece¬ 
sario, ya que esta descripción la da el 
programa automáticamente. 

Coge: evidentemente coge el objeto 
que le indiquemos (si se puede coger). 

Deja: deja un objeto que llevemos. 
La mayoría de los programas (y éste 
no es una excepción) le permite llevar 
un peso máximo, por lo que no podrá 
coger todos los objetos que desea. 

Los demás comandos que se aña¬ 
dan serán suplementarios y no ten¬ 
drán tanta importancia. Nuestro pro¬ 
grama va a tener uno más (impres¬ 
cindible en este caso): Di, que deberá 
ir seguido de la palabra CONJURO 
para tener algún efecto interesante, 
pero eso se debe a necesidades del 
guión y no suele estar incluido con los 
vocabularios normales de los juegos. 



PISO SAJO PISO ALTO 


El reslo de los comandos más o 
menos usuales son: 

Abre: si hay puertas o cajas cerra¬ 
das necesitaremos abrirlas (con llave 
la mayoría de las veces) para poder 
ver lo que hay dentro. 

Mata, ataca: cualquier frase de este 
tipo nos impelerá a matar a nuestro 
enemigo, aunque los resultados no 
sean satisfactorios, en este juego, por 
desgracia, somos pacíficos y no ata¬ 
camos a nadie. 

Salva/Lee: si el juego que usted 
diseñe es muy largo, se encontrará en 
la disyuntiva de no dormir o de no 
terminarlo. Estos dos comandos dan 
la posibilidad de salvar el estado del 
juego y poder seguir jugando el día 
siguiente. 

Aparte de estos comandos, cada 
juego puede disponer de los suyos 
propios que se dejan a la imaginación 
del programador, sin embargo, debe 
tenerse en cuenta que la persona que 
juegue disfrutará si comprende el 
juego y lo sabe manejar. No hay nada 
más frustrante que el saber qué hacer, 
pero no saber cómo decírselo a la 
máquina, el diccionario de verbos (y 
el de sujetos que veremos a conti¬ 


nuación) deben ser claros y sencillos. 

Una vez que hemos visto los verbos 
o acciones que podemos utilizar, va¬ 
mos a ver los sujetos que se pueden 
usar con ellos. Toda frase que se dé al 
ordenador debe ir compuesta de un 
verbo y un sujeto, evidentemente se 
podría complicar la cosa de modo 
que pudiésemos decir: 

VE NORTE 

para que el programa nos comprenda 
y ejecute la acción. 

Las palabras que pueden acompa¬ 
ñar a un verbo son de muy diversa 
índole, en primer lugar los cuatro 
puntos cardinales: 

NORTE 

SUR 

ESTE 

OESTE 

ARRIBA 

ABAJO 

son necesarias para el movimiento. 
Gran cantidad de acciones se refieren 
a los objetos definidos anteriormente, 
por lo que pasan a formar parte de 
nuestro diccionario; en algunos casos, 
abreviadas; el monstruo de las galle¬ 
tas será mencionado por el jugador 
simplemente como MONSTRUO y el 
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colar de los dioses pasa a ser CO¬ 
LLAR, de modo que podemos decir: 
COGE COLLAR 

El último grupo de palabras tienen 
muy diverso significado y comprende 
a las siguientes: 

INVENTARIO 

CONJURO... 

Por último, pero no por eso menos 
importante, debemos especificar el 
objetivo exacto del juego, este obje¬ 
tivo se le dirá al jugador de cualquier 
forma floreada, de modo que le dé 
intriga, por ejemplo, así: 

‘‘En las lejanas tierras del rey 
Ashglard existe un castillo abando¬ 
nado hace siglos, que dicen esconde 
las cuatro estrellas de la inmortali¬ 
dad. Muchos han sido los osados que 
han intentado cogerlas, pero ninguno 
ha vuelto, usted, caballero al servicio 
de su bella dama Hisdana, se las 
quiere ofrecer en prueba de su amor y 
ahora se encuentra en la puerta del 
castillo dispuesto a entrar a por las 
cuatro estrellas, que según dicen. 





están en un arcón encantado, que 
sólo se abre por medio de un conju¬ 
ro.” Aparte de los cursi que haya 
podido quedar nos da una idea muy 
clara de los objetivos que tenemos 
que alcanzar. 


El organigrama básico 

En la figura 2 podemos ver el 
esquema principal del juego en el que 
se pueden diferenciar varios grupos. 
El primero consiste en el generador 
del castillo, cada vez que se empiece a 
jugar de nuevo el programa situará 
los objetos en lugares distintos, de 
modo que sea distinto de resolver 
cada vez. Asimismo debe evitar los 
erores de bulto que pueda haber (la 
caja de las galletas en la misma 
habitación que el monstruo de las 
galletas). También genera dos conju¬ 
ros, uno de ellos permite abrir el 
arcón y el otro tiene efectos bastante 
nocivos. La siguiente parte es el 
reconocedor de instrucciones, en ella 
se lee una orden, se codifica (dando 
un código inválido, si se le da una 
orden imposible) y se pasa al siguien¬ 
te bloque del programa. A cada 
acción y a cada objeto se les asigna un 
número, ya que es más fácil para el 
ordenador trabajar con números que 
con letras. Con estos números busca 
en una matriz (tabla) como la indi¬ 
cada en la figura 3, en ella se da un 
código que indica si es posible o 
imposible. Si es imposible, se da un 
mensaje de error. También se da un 
mensaje de error si alguna de las 
palabras no existe. Cuando ya se ha 
comprobado que la instrucción tiene 
sentido se pasa al ejecutador de ór¬ 
denes, aquí hay un bloque distinto 
para cada instrucción. Cada uno de 
ellos comprueba primero si se puede 
hacer (coger la caja de las galletas es 
posible, pero si no está en el mismo 
cuarto en que estamos nosotros, no se 
puede), luego se ejecuta y si hace 
falta, se ejecutan todas las acciones 
complementarias (si decimos el con¬ 
juro correcto, se abrirá el arcón). Por 
último, se comprueba si ha terminado 
el juego por cualquier razón, dando el 
resultado en caso positivo y volvien- 
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do al reconocedor de instrucciones en 
caso contrario. 


El reconocedor de órdenes 

Para reconocer una orden el pro¬ 
grama debe leerla del teclado y des¬ 
componerla en verbo y sujeto. Para 
esto se buscan los espacios al princi¬ 
pio y al final y se quitan. Luego se 
busca otro espacio en medio de la 
frase y se parte la frase por ese punto, 
por último se añaden espacios a la 
derecha o se quitan letras, de modo 
que quede con una longitud de cua¬ 
tro. Este número de cuatro puede 
ampliarse a voluntad del programa¬ 
dor (conviene no reducirlo), de modo 
que sean comprensibles todas las 
órdenes, en nuestro caso vale así, 
aunque signifique lo mismo NORT 
que NORTE, ya que la quinta letra es 
eliminada. Como parte final se busca 
en una tabla hasta encontrar el núme¬ 
ro asociado a esa palabra y se busca 



UJ 

> 

HAZ 

MIRA 

COGE 

DEJA 

o 

MONEDA 

0 

0 

1 

1 

1 

0 

CAJA 

0 

0 

1 

1 

1 

0 

COLLAR 

0 

0 

1 

1 

1 

0 

MONSTRUO 

0 

0 

1 

0 

0 

0 

ARCON 

0 

0 

1 

1 

1 

0 

LIBRO 

0 

0 

1 

1 

1 

0 

REVISTA 

0 

0 

1 

1 

1 

0 

CUADRO 

0- 

0 

1 

1 

1 

0 

INVENTARIO 

0 

1 

0 

0 

0 

0 

CONJURO 

0 

0 

0 

0 

0 

1 

NORTE 

1 

0 

0 

0 

0 

0 

SUR 

1 

0 

0 

0 

0 

0 

ESTE 

1 

0 

0 

0 

0 

0 

OESTE 

1 

0 

0 

0 

0 

0 

ARRIBA 

1 

0 

0 

0 

0 

0 

A3AJ0 

1 

0 

0 

0 

0 

0 


en la tabla de la figura 3 para dar 
error en ese caso. 

El ejecutador de órdenes 

Aquí llega la instrucción ya codifi¬ 
cada y con la lógica comprobada. 
Dependiendo de la acción que le 
hayamos dado irá a un bloque en el 
cual se ejecutará la orden. En caso de 
que sea una acción referente a objetos 
(COGE) comprueba que el objeto 
está en la misma habitación que 
nosotros y lo pasa a nuestra propie¬ 
dad. Para hacerlo hay una matriz en 
la que se almacena el lugar donde está 
cada objeto. Un número del uno al 12 
indica una habitación y el cero es que 
está en nuestra propiedad. Otro gru¬ 
po de instrucciones necesita que ten¬ 
gamos el objeto con nosotros (MIRA 
DEJA), el tercero no necesita este 
tipo de condiciones (HAZ INVEN¬ 
TARIO, DI CONJURO) y el cuarto 
se refiere a movimiento (VE), por lo 
que comprueba que hay puerta en esa 
dirección y que se puede pasar. 


o : 
o l 
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° I 
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10 REM DIMENSIONABG DE MATRICES ** 

20 DIM 0B<8,2>, Hfl<12,5>,flC$<6),Vfla6,6>,0$a6> 

30 REM m GENERACION DE LA CASA ** 

40 REM m COLOCAR PUERTAS ** 

50 FOR 1=1 TO 12* FOR J=1 TO 5 : READ HA<I,J): NEXT J:NEXT I 
60 REM m LEER NOMBRES OBJETOS ** 

70 FOR 1=1 TO 16 : READ 0$<I):NEXT I 
30 REM ** DISTRIBUIR CONJUROS ## 

90 CB$="SHUM SHUM" : CM$="ATKA BISKA” 

100 IF RND< 1 )>. 5 THEN CB*="ATKA BISKR" : CM$= M SHUM SHUM" 

110 L«INT<RNDa>#3>+6 

120 0B<L,2>=1 

130 L=INT(RND <1)#3)+6 

140 IF 0B<L,2X>0 GOTO 130 

150 0B(L,2>=2 

160 REM ** DISTRIBUIR OBJETOS ** 

170 FOR 1=1 TO 8 
180 L= INT<RND<1)#12H1 
190 0B<I,1)=L 
200 NEXT I 

210 REM ** COMPROBAR QUE MONSTRUO NO ESTE CON GALLETAS ** 

220 IF 0B<3;1)=0B<5¿1> THEN 0B<5.»1)=INTCRNDC1)#12>+1 : GOTO 220 
230 REM %% LEER ACCIONES ## 

240 FOR 1=1 TO 6 
250 READ RC$<I) 

260 NEXT I 

270 REM m LEER COMBINACIONES VALIDAS ** 

280 FOR 1=1 TO 16:FOR j=i tq g 
290 READ VA<I,J) 

300 NEXT J: NEXT I 
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310 REM ## OBJETOS LLEVADOS CERO-** 

320 OL=0 

330 REM %% HABITACION INICIAL 1 ## 

340 HJ=1 

350 REM ** TESORO LLEVADO NO ** 

360 TE=0 

378 REM m ESTA MUERTO NO #* 

380 MU*0 

500 REM ## RECONOCEDOR ORDENES ** 

510 PRINT "ESTAS EN UNA HABITACION" 

520 FOR 1=1 TO 8 

530 IF HJ=OB<I.l) THEN PRINT "HAV "J0$<I) 

540 NEXT I 

550 PRINT "HAV SALIDAS A : " 

560 FOR 1=1 TO 4 

570 IF HA(HJ. I><>0 THEN PRINT O$<I + 10> 

580 NEXT I 

590 IF <HA(HJ,5K>0) AND <HJ<7) THEN PRINT "ARRIBA" 

600 IF <HA<HJ,5>O0> AND <HJ>6) THEN PRINT "ABAJO" 

610 INPUT "ORDEN: ";AS 
620 IF RIGHTS<AS. 1 >0" " GOTO 640 
630 AS=LEFTS<AS.LEN<AS>-1>:GOTO 620 
640 IF LEFTSCAS. 1)0" " GOTO 660 

659 A$=RIGHT$<fi$,LEN<R$)-l):GOTO 640 

660 FOR 1=1 TO LEN(AS) 

670 IF MIBS(AS.I.1) = " " THEN VE$=LEFT$(AS.1-1):SU$=RIGHTS(AS.LEN(AS)-I):GOTO 680 
675 NEXT I 

680 REM ** PONER EN CUATRO CARACTERES ** 

690 IF LEN(VES>>4 THEN VE$=LEFT$(VE$.4) 

700 IF LEN(VES)<4 THEN VE$=VE$+" " : GOTO 700 
710 IF LEN(SUS)>4 THEN SUS=LEFTS(SUS,4) 

720 IF LEN(SUS><4 THEN SUS=SUS+" ":GOTO 720 
730 REM m BUSCAR CODIGO VERBO ** 

740 FOR 1=1 TO 6 

750 IF VE$=LEFT$(RCS<I).4) THEN ÑANGOTO 780 
760 NEXT I 

770 PRINT "NO ENTIENDO LO QUE DICE":GOTO 20000 
780 REM m BUSCAR CODIGO SUJETO ** 

790 FOR 1=1 T0 16 

800 IF SU$=LEFTS(GS(I).4) THEN NS=l:GOTO 830 
810 NEXT I 

820 PRINT "NO ENTIENDO LO QUE DICE":GOTO 20000 
830 REM ** COMPROBAR ACCION LOGICA ** 

840 IF VA(NS.NA) =0 THEN PRINT" NO PUEDO HACER MILAGROS. LO SIENTO":GOTO 20000 
850 REM m EJECUTAR ORDEN ** 

860 ON NA GOTO 900. 10001100. 1280.. 1300.1400 
900 REM m IR EN DIRECCION M 

905 IF (NS= 16> AND <HJ012> THEN PRINT "NO PUEDO" :GOTO 20000 
907 IF (NS=16> AND <HJ=12> THEN HJ=6:GOTO 20000 

910 IF HA<HJ.NS~10> =0 THEN PRINT "HAV UN PARED. NO PUEDO":GOTn 20000 
915 IF HA<HJ.NS-10> = 13 GOTO 930 
920 MM=0:HJ=HA<HJ.NS-10):GOTO 20000 

930 IF 0B<1.1)=0 THEN HJ=13:G0T0 20000 

940 PRINT "LA PUERTA ESTA CERRADA ":GOTO 20000 

1000 REM #* HACER INVENTARIO *# 

1010 IF OL=0THEN PRINT "NO LLEVAS NADA":GOTO 20000 
1020 FOR 1=1 TO 8 

1030 IF 0B(I.1)=0 THEN PRINT "LLEVAS ";0$<I) 

1040 NEXT I 

1050 GOTO 20000 

1100 REM *# MIRAR OBJETO M 

1110 IF (OB<NS.2>=0) AND <OB(NS.1> =NJ)THEN PRINT " NADA ESPECIAL":GOTO 20000 

1120 IF (0B<NS.2) = 1) AND (OB<NS.1)=NJ>THEN PRINT CBÍ :QOTO 20000 

1130 IF <OB(NS.2)=2> AND (OB<NS.1>=NJ>THEN PRINT CMS :GOTO 20000 
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1140 PRINT “ME RESULTA IMPOSIBLE” : GOTO 20009 

1209 REM ** COGER OBJETO ** 

1210 IF 0L=2 THEN PRINT “VAS DEMASIADO CARGADO":GOTO 20000 

1229 IF OB<NS. DOHJ THEN PRINT “NO LO VEO" :GOTO 20900 
1225 OL=OL+l 

1230 OBCNS. 1 )=0 : GOTO 20900 - 

1 QfaGÍ PPM ** riP TQP ÍTR TPTfl *4 

1310 IF OB<NS.1X>0 THEN PRINT “NO LO LLEVO ENCIMA":GOTO 20000 
1315 OL=GL-l 

1320 ÜB<NS. 1 )=HJ : GOTO 20000 
1400 REM m DECIR CONJURO M 


1410 

1420 

1430 

1440 

1450 

1460 

20000 

20919 

20920 
20039 
20049 


n 


INPUT 
IF <A$= 
IF 

IF <A$= 
IF <R$= 
PRINT 
REM 
IF HJ< 
PRINT 
IF TE= 
END 


“TE HA DADO UN MAREO": GOTO 20009 
GOTO 20000 

"NO PASA NADA":GOTO 20000 
“TIENES EL TESORO":TE=1: GOTO 


TECLEE EL CONJURO :“;AS 
CMS) AND ODBC4,1)=0) THEN PRINT 
CMS) AND <OB<4,1)00) THEN MU=1 : 

CBS) AND <OB<2.1)O0> THEN PRINT 
CBS) AND < OB < 2.1) =0) THEN PRINT 

“APARTE DE UNA RONQUERA NO CAMBIA NADA":GOTO 20000 
ACCIONES SECUNDARIAS ## 

>13 GOTO 20950 
“PALIA DE LA PAPA" 

1 THEN PRINT “CON LAS CUATRO ESTRELLAS. MUY BIEN":END 


29000 


o 


20950 IF MU=1 THEN PRINT "LO SIENTO. HA MUERTO":END 
>0060 IF 0B(3.1)=HJ THEN MM-MM+1 

20070 IF <MM=2)flND<0B<5. l)OHJ) THEN PRINT "LE COMIO EL MONSTRUO" : END 
20089 GOTO 500 

60900 REM ** DATOS DE LAS PUERTAS ** 

60010 REM 1= PUERTA 0= PARED 2= PUERTA CON LLAVE 

60029 DATA 3.13,0,2,0,4,0,1,0,0,5,1,0,0,0,6,2,0,0.0,0,3,0.6,0,0,4,5,0,12 

60030 DATA 9,0.0.8.0,10,0,7,0,9,11,7,0,0,0,12,8,0,0,0,0,9,0,12,0,0,10,11.0.6 
60040 DATA “MONEDA","flRCON",“MONSTRUO",“COLLAR",“CAJA",“REVISTA",“LIBRO" 
69950 DATA "CUADRO“,"INVENTAR10"."CONJURO“,“NORTE“,“SUR “,"ESTE“,“OESTE“ 
60060 DATA "ARRIBA",“ABAJO" 

60070 DATA "VE ","HAZ ","MIRA","COGE","DEJA"."DI " 

69080 REM ** COMBINACIONES VALIDAS ** 

60990 DATA y,0,1,1,1,0,0,0,1,1,1,0,0,0,1,U,0,0,0,0,1,1,1,0,0,0,1,1,1,0 
60100 DATA 0,0, 1,1,1,0,0,0, 1 , 1 , ]. , 0,0,0, 1 , 1 , 1,0,0,1,0, 0,0,0,0,0,0,0, 0, 1 
t»0110 DATA 1, U,0,0,0, U, 1,0,0,0,0,9, 1,0,0,0,0,0, 1,0, 0,0, 0,0, 1,0,0, 0,0,0 
60120 DATA 1,0,0,0,0,0 
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Todos los datos que hemos dado 
hasta ahora se unen en el listado del 
programa (figura 4). Estas reglas, 
como cualquier tipo de juego, no son 
inamovibles, sino que se pueden mo¬ 
dificar a gusto del programador. Los 
datos y explicaciones que hemos dado 
anteriormente pueden servir de refe¬ 
rencia para programadores que los 
modifiquen a su gusto. 


Los juegos de aventuras en general 

Los juegos de este tipo se pueden 
situar en cualquier lugar y ocasión. 
La única limitación radica en su 
imaginación para crearse lugares 
donde pelear o buscar objetos, o 
cualquier otra misión que se le ocu¬ 
rra. A continuación damos unos 


cuantos lugares típicos de aventura y 
las cosas que puede haber en ellos. 

Una aventura de la Edad Media 

En este tipo de aventuras abundan 
los monstruos en sus más diversas 
formas: lobos, enanos, orcos, serpien¬ 
tes, vampiros, inspectores de hacien¬ 
da, fantasmas, etc., también hay con¬ 
juros, armas, tesoros y otro tipo de 
cosas habituales en el pasado. 

El detective en una casa 

En este caso podemos buscar un 
asesino o unas joyas, a nuestro alcan¬ 
ce están todas las facilidades de la 
vida moderna, cerillas, lámparas, ne¬ 
veras, etc. Suele haber asesinos horri¬ 


bles que nos lanzan cuchillos desde 
las esquinas. 


Aventuras en el tiempo 

Aquí disponemos de una máquina 
del tiempo para trasladarnos por 
diversas épocas, en este caso los 
objetos que puede haber sólo están 
limitados a la imaginación (quién 
sabe qué nos deparará el futuro, 
aparte de más impuestos). 


Aventura en la isla 

9 

Las ideas son las mismas, con la 
única limitación impuesta por la épo¬ 
ca en la que queramos ambientar el 
hecho. 
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Test es un juego para el VIC 20, que 
nos envía Alfredo José Díaz desde Las 
Palmas de Gran Canaria. Ls un juego 


en el que deben dispararse proyecti¬ 
les, desde una base submarina, sobre 
diferentes blancos que discurren por 
la parte superior de la pantalla. Estos 
blancos incluyen helicópteros, lan¬ 
chas de superficie y submarinos y 
cada uno de ellos puntúa de forma 
diferente cuando es alcanzado. Ade¬ 
más los submarinos van soltando 
minas, sobre las que no hay que 


0 G0SUB1585 

1 P0KE36879,29 : PRI NT " I L= /F/ " 

2 pr i nt " mm&nw i f i c il= /n/" 

3 P=PEEK<197):IFP=18THEN0Ü=8 : GOTO9 
5 IFP=42THEH00=1•ÜÜTÜ9 

7 GÜT03 

9 PRINT'C]" 

10 P0KE36869,255•P0KE52,28 : P0KE56,28 

11 IF00= 1THENÜLR •' 00= 1 

12 IFOO=0THENCLR : ÜÜ=0 

13 pnKE8^878•10 

20 R=7168?FÜRI=RTÜR+511:P0KEI,PEEK<I+25680 >:NEXT 

30 FÜRL=8T0 111- REfiDF : POKER+L., F : NEXT 

48 DRTR1,0,0,32,119,32,0,8 

45 DRTR8,3,7,15,255,114,63,31 

58 DRTR3,3,3,127,255,213,255,127 

55 DHTR255,16,56,100,238,124,40,124 

60 DRTR0,192,224,240,255,78,252,248 

65 DRTR128,128,128,254,255,171,255,254 

7O DRTR16,16,16,16,56,254,254,254,0,16,16,ü,8,16,16,8 

75 DRTR8,82,62,252,63,122,54,16,128,81,42,4,8,8,8,8,8 

77 DRTR1,138,64,28,62,28,8,8,16,16,16,56,56,56,8 

79 DRTRO,8,3,127,7,63,21,31,8,8,144,168,192,252,88,248 

88 Z=8189 '■ 8=7834 : 0=8 : 11 =8186 

85 F0RR=38818T038839 : POKER,2•NEXT 

87 F0RR=8128T08186 : POKER,11:P0KE38728+R,3•NEXT 

98 F0RR=7856T07877:POKER,9:PÜKE38720+R,6:NEXT 

108 P=PEEK197> : I FP=31THENZ-Z-1 • GOTO 118 

185 IFP=23THENZ=Z+1 

118 D=1 : IFZ<88990RZ>8118THEN288 

115 IFZ1 OZTHEN6N9 • PÜKEZ1,32 

120 PÜKEZ,6 

125 IFQ>2THEN2@8 

130 IFF-8THEII: Ii=2 : Q=0+1 : GOTO680 

288 OND1GOT0258,388,488 

250 PÜKES,32 : S=S+M : PÜKES+38728,4 

268 IFS=73340RS=7855THENF*0KES, 32 : GOT0588 

288 PÜKES,1+F1:POKES+M,1+F2 : PÜKES+M+38728,4 

298 Dl=l : GOTO458 

308 PÜKES,32 ; S=S+M : PQKES+30728,2 
31Ü IFS=78780RS=7899THENP0KES,32 : GOTO508 
328 PÜKES,2+F1:POKES+M,2+F2:PÜKES+M+38728,2 
358 IFS-CTHENPOKEC-22,10 
368 D1=2 ; GOT0458 

408 P0KE36877,288 : PÜKES,32 : PÜKES+1,32:S=S+1 

418 IFS~7833THE!NPÜKE36877,8: GÜT0588 

428 PÜKES,8 : PÜKES+1,3 : D1=3 : PÜKE36877,8 : PÜKES+38721,7 


PREMIADO CON 

PESETAS 


disparar pues restan puntos. En la 
parte inferior de la pantalla puede 
verse en cualquier momento el núme¬ 
ro de proyectiles de que se dispone 
para el combate, acabados los cuales 
termina el juego. 

Al comenzar aparecen las instruc¬ 
ciones del juego junto con la posibili¬ 
dad de escoger entre dos niveles de 
dificultad. 
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450 0N B G 0 T 010 G , 61G 

•jÜÜ N=RND < í > : M= í NT ( RNB < 1 > +. 5 > 

518 IFM=8THENM=~1 : F1=3 : F2=8:G0T0538 
520 F" 1 =0 : F2=3 

525 IFNC.25THEND1=1:8=7854■M=-1:F1=12 ; F2=11=GOTO450 

538 IFNC.5THEND1=1•S=7845--3*M : GOTO450 

540 I FNC - 75 THE NI) 1 =2 : 8=7883”3*M : C=Z-228 : GOT0450 

550 B1 =3 • 8=7312 •' M= 1 : GOTO450 

600 R=Z:B=2•IFII>8186THENII=8186 

605 I i = 11 “ 1 : IF11 <8120TFIEN 1500 

607 POKEI11, 32 

610 FORTR=0TÜÜÜ F0KE36877,220 ; IFRC73Ü0THEN650 
620 R=R~22 

630 POKER,7:POKER+33720,7:P0KE36877,G:B=2 
640 NEXT:GOTÜ200 
650 SI =R-S ' 3E--R-S-M 

655 IFPEEK<Z-242> = 18THENSC=SC-15:POKEII,11:11 = 11 + 1:POKEZ-242,8:G0SUB345 

660 IF 22* I NT < SIZ22 > =81 THENSñ=PEEI< '• 8 > : GOSUB30G : GOTO680 

670 IF22*INT(8E/22> =SETHENSR=PEEK<S+M>:GOSUB800 

680 FORR=Z-22TOZ-22O8TEP - 2 2 

630 POKER,32:NEXT:P0KE36877,O:GOTO100 

800 IFPEEK<Z-242>=18 AND<Sñ=20ORSñ=5>THENSC=SC+88 

810 IFSfi=20QRSñ=5THENSÜ=SC+200 : G08UB350 : GOTO840 

815 1FSH=10RSR=40RSfi=120R8A=13THENSC=SC+78 ; G0T0848 

820 IF SFl=8ÜR3ñ=3THEN3C=SC+10 

840 POKE8,8 : POKES+30720,7 : P0KE36878,15 

845 F O R L.=O T O 5 : P O K E36875, 220 : G O 8 U B300 : P 0 K E36875,0 : G O 8 U B 3 0 O : N E X T 

850 POKEZ-242,3:P0KE36878■ íO•GOT01088 

300 F0RR=1TO30:NEXT:RETÜRN 

350 IFB1 = 2TFlENFORR=7856T O 7 8 7 7 : POKER, 3 : NEXT 

368 RETÜRN 

1008 F0Rfl=7717TÜ7723 : POKER,32:NÉXT 
1018 SC$=STR$<SC> : L=LEN<8CÍ > 

1028 F0RR=1T0L 

1030 P0KE7717+R,RSC <MIB$< SCt ,R,1>> +128 
1040 PÜKE38438+R,8:NEXT:RETÜRN 
1580 PRINT"r3" : P0KE36863, 248 
1518 PRINT"ÍMíIIíMíIMpITU TfiNTEO = "SC 

1528 IFSC> 150GTHENPRINT" &¡mmn*h-66 MUNICIONES" : FORX=8TO4880: NEXT: RESTORE • G0T09 

1550 PR I NT" WMttlíBSWSÜTRfi VEZ ?a u 

1568 GETR$:IFR$=""THEN1560 

1578 IFR$="S"THENRUN 

1575 IFR$C>"N"THENGOTO1560 

1588 END 

1585 P0KE36873,23 

1587 PRINT"73RVUBR R DESTRUIR LR FLOTR ENEMIGA" 

1530 PRINT"CRSRt=IZQUIERBR" 

1535 PRINT ,, -e=FUEGO" 

1680 PRI NT"CRSR*-=BERECHñ" 

1605 PRINT 

1610 PR I NT" ELI CORTERO 52 18 P" 

1615 PRINT 

1620 F‘R I NT " BRRCOS= 18 O 70 P" 

1625 PRINT 

1638 PRINT"SUBMARINOS=200 P" 

1635 PRINT 

1648 PRINT"MINfiS=RE8TA 15 P" 

1645 PRINT 

1658 PRINT"APRIETA UNA TECLA PARA CONTINUAR" 

1668 GETAT:IFAf=""THEN1668 
1678 RETÜRN 
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El juego muestra una gran estruc¬ 
tura a modo de andamio, por la cual 
se puede mover un robot que recoge 
el máximo número de manzanas posi¬ 
bles que caen del “cielo". Pero no 
todo acaba ahí, porque por cada 
manzana que el robot no pueda 
recoger y que toque la estructura, 
supondrá un grave daño para ésta y 
consiguientemente entorpecerá los 
movimientos de tu robot. La estruc¬ 
tura está rodeada de un gas azul, letal 
para el robot, por tanto si éste toca 
cualquiera de los bordes de la panta¬ 
lla o bien se cae al suelo, queda 
destruido. 


Ahora bien, el juego no es algo tan 
sencillo como recoger manzanas. Pa¬ 
ra obtener puntos deberás depositar, 
cuando lo estimes oportuno, las man¬ 
zanas recogidas en unas cestas reco¬ 
lectoras situadas a ambos lados de la 
estructura; en su parte más alta. No 
todo van a ser dificultades... para 
cruzar de un lado a otro la pantalla 
—en un abrir y cerrar de ojos— se 
encuentran situados dos “transporta¬ 
dores de alta velocidad" a ambos 
extremos de la estructura (en la pan¬ 
talla los verás justo abajo de las 
escaleras que llevan a las cestas reco¬ 
lectoras). 

Como podrás observar, debes ma¬ 
nejar el robot con gran habilidad para 
sortear escaleras, saltar agujeros pro¬ 
curando no caer ni en una zona sin 
salida ni al suelo, recoger manzanas v 


por fin depositarlas... ¡Todo un tra¬ 
bajo! 

Para poder jugar debes disponer de 
Joystick, que colocarás en el PORT 2, 
y para hacer saltar al robot se debe 
pulsar el botón de disparo en coordi¬ 
nación con el movimiento del Joys¬ 
tick. 

— El juego terminará cuando tu 
robot sea destruido, por tocar la zona 
azul, o bien cuando 5 manzanas 
caigan al suelo. 

— También se han de depositar las 
manzanas recogidas en las cestas 
cuando se tengan 10 o menos. 

— El nivel de dificultad, que más 
bien debiera llamarse de “facilidad", 
es posible elegirlo antes de comenzar 
a jugar, haciendo que las manzanas 
caigan más deprisa, según el número 
elegido (¡Ojo! el 1 es el más rápido). 
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ESPERñ n: GÜSUB1500 
":IFflP>10THENRP-10 


0 REM*##NEWTON### 

5 pr i ht " " 

6 pr i nt " i eres i nstrucc i ümes? < s/n > •• 

7 GET QQ$ • IFQQ$<> " S " ÑHDQQ$0 " N" THEN7 

8 IFQQ$="N"THENPRIHT"33 
10 IFQQ$="S"THENGOSUB700 

20 G=IHT <1028+31*RHD<0 > >:PRIHT"3 

21 IFLI>4THEH470 

30 F0RZZ=1TÜQQ •' PÜKEM, 6 : PÜKEM+CÜ, 7 • JV=PEEK<56320> ¿FR«JVRND 16 • JV=15-< JVRND15) 

35 PÜKE54236,15: P0KE54277, 1 '38 : PÜKE54276, 17 ■* P0KE54273, 130 

40 IF JVO0THENPGKEM , H : PÜKEM+CO , B : P0KE54273,20:1 FR=70RR=8THENPQKEM , 32 

50 IFJV=4ñHDFR=16THENM=M-1:IFPEEK<M > =0QRPEEK< M> = 1THENM-M+1 

60 IFJV=3RNBFR=16THENM=M+1:IFPEEK <M>=0ÜRPEEK<M> = 1THENM=M~1 

70 IFJV=1HHDPEEK<M)=2THENM=M-40 

80 IFJV=2RHBPEEK<M+40> =2THENM=M+40 

30 I FJVO0THENfl=PEEK < M > : B=0 : I FR032THENB=PEEK < M+CO > 

100 IFJV=4ñHDFRO 16THEHGÜSUB240 
110 IF JV=8RNDFRO 16THENGOSUB270 

120 I FPEEK •: M+48 > -32THEHP0KEM, 32 : M=M+40: PÜKEM, 6 : PÜKEM+CÜ, 7 : GOTO 120 
130 IFñ=5THEHGÜSUB300 
135 IFM=1665ÜRM=1662THEHGÜSUB400 
140 IFPEEK< M+40>=8ÜRfi=8THEN500 
145 P0KE54273,0:NEXTZZ 

150 POKEG, 32 : 0=0+40 : I FPEEK <G > =6THEHflP=flP+1 •' PÜKE54273, 48 : fi=32 : PÜKEM, 32 : GÜTÜ20 
168 I FPEEK ( G >032THEHPÜKEG, 32 : PÜKEG+40, 32 : GÜS1 IB 190 : r¡nTH20 
178 IFG>1343THEHLI~LI+1•GOTO20 

188 POKEG, 7 : POKEG+CÜ, 18 : PR I HT " SC; " : " ñP; " M : GÜTÜ30 

130 PÜKE54236, 15 : PÜKE54277, 130 : PÜKE54276,33 : PÜKE54278, 130 •’ PÜKE54273, 10: RETURN 
200 H=PEEK <M >:B=0:IFñ=32THENRETURH 
210 B=PEEK<M+CÜ>:RETURN 


248 I FPEEK»: M-41 > -ÜÜRPEEK < M-41 
245 PÜKEM,H:PÜKEM+ÜÜ,B : M=M-41 
258 IFPEEK <M+33> =0ÜRPEEK< M+33 
268 PÜKEM - Fl: PÜKEM+CÜ, B : M=M+39 
278 IFPEEK < M-33> =0ÜRPEEK<M-33 
275 PÜKEM,ñ:PÜKEM+CÜ,B : M=M-33 
288 I FPEEK < M+41 > -ÜÜRPEEK (M+41 


“1THEHRETURH 

GÜSIJB200 : PÜKEM, 6 : PÜKEM+CÜ, 7 
=1THENRETURH 

GÜSUB200:PÜKEM,6 : PÜKEM+CÜ,7:RETURN 
=1THENRETURH 

GOSUB200 : PÜKEM,6 : PÜKEM+CÜ,7 
=1THENRETURH 
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SBNEWTON! 


¿yy PüKEM.. A : PUKEM+iJU , B ; M-M+41 : GOSUB2Q0 : POKEM .• 6 : PAKEM+Cfi . 7 '■ RETURN 
300 IFflP<1THENRETURN "* ~ 

310 POKE53280,10•FQRI=lXOfiP-HP==fiP-l :_SD=SC+1:HEXT?PQKE53280;11:RETURN 

400 I FM= 1665THENM= 1661 : PGKE1665,8 : POKE1665+CQ , 8 

410 IFM=1662THENM=1666 : POKE1662,8:POKE1662+CO,8 

420 P0KE54277,190:PÜKE54276,33 : PGKE54278,190 

430 FORZ=0TO40STEP.5•P0KE54273,Z : NEXTZ 

440 POKE54277,0:PÜKE54276,0:P0KE54278,0•P0KE542>3,0 

450 R=2:B=0•*RETURN 

470 PRI NT"□" '■ POKE53280, 0 : PÜKE53281,0 • PÜKE53272'. 21 

480 F'RINT"ÍÍpMpIpMpMpIpMpíí 5:MANZANAS HAN TOCADO EL" 

490 PRINT"M SUELO DE LA PANTALLA" 

495 FORI = 1 TU1000:NEXTI 

500 P0KE54277.. 190 : P0KE54276, 129 : P0KE54278,190 •' PQKE54273,6 
510 FQRX= 15T008TEF*-. 3 : FORZ= 1TO20 : NEXTZ • P0KE54296, X : NEXTX 
520 POKE54277,0 : P0KE54276, ü •* P0KE54278,0 : P0KE54273, 0 
530 PRINT"□" : POKE53280.• 0 : P0KE53281 , O : P0KE53272.• 21 
540 PR I NT" m*Zl CONSEGUISTE al" SC; "í¡MANZANAS" 

550 pr i nt "mmmm otra .ti iega < s/n > "• n 

560 GETP$ 

570 I FF'$=" S " THENGOSUB1640 •' GOTH20 

580 IFP$= " N " THENF'R I NT "□HASTA LUEGO." : END 

590 GOT0560 

700 PR I NT " □" : POKE53280, O : P0KE53281 , 0 : PR I NT" S3 
710 F‘R INT"ÍMp] Í3EL OBJETO BEL JUEGO ES PROTEGER H" 

720 PRINT"LAS ESTRUCTURAS DEL ANDAMIO MEDIANTE EL" 

730 F'R I NT "MANEJO DE TU RECOGEDOR AUTOMATICO DE" 

740 F'R I NT " M ANZANASLX R „ A. M. > POR TODA LA ESTRUCTURA," 

750 PRINT"COLOCANDOLO DEBAJO DE LAS MANZANAS QUE" 

760 PRINT"CAEN AL SUELO PARA PODER COGERLAS" 

770 PRINT’Líffmini UNA VEZ QUE HAVA AGOTADO SU" 

780 PRINT"CAPACIDAD <10 O MENOS) DEBERA IR A" 

790 PRINT"DEPOSITADLAS EN LA CESTA DE RECOGIDA EN" 

800 PRINT"7LA PARTE SUPERIOR DEL ANDAMIO EN CADA " 

810 PRINT"LADO DE LA PANTALLA u PERO SI ALGUNA" 

820 PRI NT "MANZANA SE LE ESCAPA A TU R * A. M. ' V" 

83G PRINT"TOCA LA ESTRUCTURA,CAUSARA IMPORTANTES" 

840 PRINT"DESTROZOS,PONIENDOTELO MAS DIFICIL" 

845 PRINT"ÍMp] SFULSR UNA TECLA PARA CONTINUAR" 

846 IFPEEK<197 >=64THEN846 

850 PRINT"3»P SI LA ESTRUCTURA ESTA DETERIORADA DE" 

860 PRINT"TAL FORMA QUE SEA IMPOSIBLE MOVERSE DE" 

870 PRINT"UN LADO A OTRO POR.LOS ANDAMIAS,ENTONCES" 

880 PRINT"HTE VERAS OBLIGADO A USAR LA NAVE" 

890 PRI NT "TRANSPORTADORA <51 1) CON LA CUAL TE" 

900 PRINT"PODRAS MOVER DE UN EXTREMO A OTRO DE" 

910 PRI NT "FORMA INSTANTANEli. NO OBSTANTE . p! !EDFs 
92U PRINT"HUSAR ESTE METODO CUANDO QUIERAS." 

940 PRI NT":?!?] SEL DISPOSITIVO ANTI PROBO' QUE RODEA LA" 

950 PRI NT" ."ESTRUCTURA < AZUL,TI) ES LETAL PARA TU" 

960 PRINT"ROBOT, POR TANTO SI SE CAE A TRAVES DEL" 

970 PRINT"ANDAN10 AL SUELO,Ü SE VA DEMASIADO" 

980 PRI NT "LEJOS AL DEPOSITAR LAS MANZANAS : ¿IpIIIHIIIIIHI 

985 PR I NT " :*TCU I DADO : üfS I al5il MANZANAS CAEN AL SUELO..." 

986 PRI NT"*! aQUEDAS DESTRUIDO!!!" 

990 PRlHT u m 8FULSA UNA TECLA PARA SEGUIR" - 
1000 IFPEEK<197> =64THEN1000 

1018 PRINT'CTdTí LA PUNTUACION LA VERAS EN LA ESQUINA" 

1028 PRI NT "SUPERIOR IZQUIERDA DE L.A PANTALLA CON" 

1030 PRINT"EL NUMERO DE MANZANAS QUE LLEVA EL" 


I SISE DESTRUYE! 
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Viene de la página anterior 


1040 
1 050 
1060 
1 070 
1 080 
1081 
1 000 
1100 

1110 
1 1 20 
1140 
1 500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1 580 
1500 
1 600 
1610 
1620 
1630 

1640 

1641 


PRINT"ROBOT-<PUNTOS:CflRGR>;TU PUNTUfiGION FINHL" 
PRINT"TES EL NUMERO HE MONEONOS HEPOSITODOS EN" 
PRINT"LOS CESTOS RECOLECTONOS DURONTE EL JUEGO" 
NT"M ^MOVIMIENTOS" 


PRINT"MUSO EL JOVSTICK EN EL FORT 2 PORO " 

PRINT"MOVERTE NOCIO-" 

PR I NT " ORRIBO : OBO JO * IZQUI ERIJO : DERECHO. " 

PR I NT " M Í3EL DIS POR ODOR HOCE QUE EL ROBOT SOLTE " 

PRINT""POR ENCIMO DE UN AGUJERO EN AQUELLA" 

PRINT"DIRECCION EN LO QUE SE ESTE MOVIENDO" 

PRINT "m «BUENO SUERTE!!" 

P0KE56334,PEEKC56334>0ND254:POKE1,PEEKC1>AND251 
FORI=0TO511 : POKE1+12288,PEEKC1+53248) : NEXT 
POKE1,PEEK<1>0R4•P0KE56334,PEEKC56334 >OR1 
FORCHAR=0TO8 

FORBVTE“0TO7 • REODN : POKE 12288+ < SACHAR > +BVTE .• N : NEXTBVTE: NEXTCHAR 

DOTO 255,255,255,255,255,255,255,255 

DOTO 129 , 66 .• 36 .• 24 .• 24 .> 36.. 66 , 255 

DOTO 255,129,129,129,129,129,129,129 

DOTO 192,192,192,192,192,192,192,192 

DOTO 3,3,3,3,3,3,3,3 

DOTO 255,255,66,1U2,36,6ü,24,24 

DOT 0 129,129,66,231,153,153,102,66 

DOTO 0,36,126,126,126,126, 60, Ü 



1650 
1700 


DOTO 255,255,255,255,255,255,255,255 
PR I NT " IVEL DE DIFIGULTAD? C 1 -4 > " 

GETQQ : IFQQ<10RQQ>4THEN1641 

PRINT"MPli PULSO UNA TECLO PORO EMPEZAR 0 JUGOR" 

IFPEEKC197 >"64THEN1650 
P0KE53272, 29 : PRINT"3" • P0KE53280, 11 : P0KE53281,11 : PRINT"BWMM" : CO 
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1710 

PRINT" 

hJE 




E" 

1720 

PRI NT"* 

aetiB 




■Bü*5" 

1730 

PRINT" 

tiñ«£ 




■BSiO" 

1.740 

PRINT" 

HB 




BB" 

1750 

PRINT" 

aB 




aB" 

1760 

PRINT" 

■B 




BB" 

1770 

PRINT" 

■B 




■B" 

1780 

PRINT" 

HB 




■B" 

1790 

PRINT" 

■B 

B^§500 

S ri | d | d ¡ d | d 

00 iB 

iijdídiB B" 

1 800 

PRINT" 

■B 

B Si SO 00 

00000 

flñBB 

B;»?@aB í’iññlB B" 

1310 

PRINT" 

BB 

E 

¡73D 

lBiiÍ50000 

■BíiñflaB B B" 

1820 

PRINT" 

aB 

B 

rrsij 

■BtíHññññ 

■B B B BÍ» M 

1830 

PRINT" 

:íhib 

B BK38 BB 

SB B; : J50 aBii500" 


1840 

1850 

1860 
1 Cf~?& 

.i. i *:_• 
1880 
1890 
1900 
1910 
1920 
1930 
194U 
1990 


PRINT" 
PRINT" 
PRINT" 


:$@@SB ISSIBIS BBSiñfl ñHSBSifiH mp.&'iaB ■BífiH ■BSWHfl" 


ri i 

PRINT" 
PRINT" 
PRINT" 


SflHfllB eso O» BISO «B !T3C: 
l£ B B 173*:: IB 

a£ £ B >150000000 

>150000000 fiFiOOOOROO 
«40000000 mi- Ü1D 


íiSOOOlB SFiOOO IB 
B mi: BB B" 

aB ,7?:; ■£ B" 

>fjd|dId| dId|d |d|'d| d|d|d|d ' 1 

fiiHOOOOO 000000" 

D C D" 


B" 


mi: D C D C 

FORI=1024TÜ1944STEP40•POKEI,8•POKEI+C0,6•NEXT 
PORI=1063TO1983STEP4U•POKEI,8 : POKEI+C0,6:NEXT 
FOR I = 1984TO2023 : POKE 1,8 '• POKE I+C0, 6 • NEXT 
0=32 : HF-0 : SC=0•M~1328•LI=0 
RETURN 
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Normalmente, cuando se maneja 
un conjunto de datos es importante 
que se encuentren ordenados o clasi¬ 
ficados, de esta forma es más cómodo 
trabajar con ellos. Pensemos sino en 
lo que supondría tener que buscar un 
número de teléfono en una guía 
telefónica donde no existiera ningún 
orden y en la que, para encontrar el 
número de fulano que tal, hubiera 
que buscar página por página, entre 
miles de números y nombres, hasta 
encontrar el número buscado; espe¬ 
rando que, con un poco de suerte, el 
número no estuviera situado en la 
última página de la guía. Por ello es 
natural que una de las tareas más 
corrientes al trabajar con un conjunto 
de datos, sea la de clasificarlos, bien 
en orden alfabético, cuando se trata 
de palabras, frases o textos, o bien en 
orden creciente, de menor a mayor, si 
los datos son valores numéricos. 

Ordenar un conjunto de datos es 
una tarea sencilla, que todo el mundo 
es capaz de realizar pero, cuando el 
conjunto incluye un número elevado 
de datos —pongamos más de mil 
datos— es una tarea sumamente la¬ 
boriosa y que requiere mucho tiempo 
para su realización. Estas caracterís¬ 
ticas, es decir, que la tarea se realice 
con unos cuantos pasos sencillos, 
pero repetidos, un número muy gran¬ 
de de veces, nos suena inmediatamen¬ 
te a trabajo para un ordenador y así 
es un efecto. Mucho se ha trabajado 
en este tema y son muchos los algo¬ 
ritmos o procedimientos estudiados, 
unos más sencillos de programar y no 
demasiado rápidos en su ejecución, 
otros muchos más rápidos y eficientes 
pero también más complejos. 

En este artículo vamos a describir 
cuatro de estos algoritmos de clasifi¬ 
cación, explicando su forma de actuar 
y acompañando esta explicación con 
una rutina en BASIC, que ilustre 
cada uno de los métodos. 

La tabla 1 muestra un resumen 
comparativo de cuatro métodos de 
clasificación de datos. En ella se 
indica el grado de complejidad de 
cada método y la eficiencia del mis¬ 
mo, que no es más que la mayor o 
menor velocidad del método a la hora 
de ordenar el conjunto de datos. Esta 


ro oommodorti 

□ O _ 2LLTlP 


eficiencia, como puede verse en la 
tabla, viene referida tanto para pe¬ 
queñas como para grandes cantidades 
de datos y suele ser distinta en cada 
caso. Hay otro factor a tener en 
cuenta, a la hora de elegir entre unas 
y otras técnicas de clasificación, del 
que no hemos hablado y que es la 
cantidad de memoria que necesita y 
utiliza cada método. 

En primer lugar, todos los métodos 
necesitan un mínimo espacio de me¬ 
moria común para todos ellos, que es 
el necesario para almacenar los datos, 
desordenados en un principio, que 
van a ser clasificados. Normalmente, 


los datos se guardan en una matriz 
unidimensional, bien numérica, cuan¬ 
do los datos son números, bien de 
expresiones 1 iteraie-* cuando los da¬ 
tos a ordenar son caracteres o ca¬ 
denas de caracteres. 

Algunos métodos, como el de la 
burbuja, no necesitan más espacio de 
memoria^ mientras que otros méto¬ 




dos si lo necesitan, normalmente para 
almacenar de forma temporal deter¬ 
minadas variables auxiliares utiliza¬ 
das en el proceso de clasificación. 
Cuando se trabaja con una gran 
cantidad de datos, esta necesidad de 
memoria puede ser el factor más 


10 REM 


15 REM * * 
20 REM * CLASIFICACION DE DATOS * 
25 REM * PROGRAMA PRINCIPAL * 


30 REM * 
35 REM * 

40 REM * 


COMMODORE MAGAZINE 


* 

* 

* 


45 REM 
50 REM 
55 CLR 

60 PRINT"riíWirrECNICAS DE CLASIFICACION DE DATOS" 

65 INPUT n ’ffiíWNO. DE DATOS (5-1000) " .; N 

70 IF NC5 OR N>1000 THEN 65 

75 N= I NT < N > : DIMD ( N > : PR I NT " DESPERA..." 

80 FOR J=1 TO N 

85 D < J> = INT<RND<0 > *3000 > 

■30 NEXT J 

35 PRINT"HELICE METODO" 

100 PRINT"M 1) BURBUJA" 

105 PRINT" 2) BURBUJA MODIFICADO" 

110 PRINT" 3> INSERCION" 

115 PRINT" 4) RAPIDO" 

120 PRINT"IMPULSA NUMERO DE OPCION" 

125 CETAS : IFAS=""THEN125 

130 A~VAL(AS) : IF PCI OR A>4 THEN125 

135 TIME$="000000" 

140 ON A GOSUB 1000,2000.. 3000, 4000 
145 PRINT"CLASIFICACION TERMINADA" 

150 HS=M I ÜS ( TIMES,1,2) 

155 MS=MIDS(TIMES,3,2) 

160 SS=MID$ <TIMES,5,2) 

165 PRINT "TIEMPO EMPLEADO" 

170 PRINT":« "HS; " HORAS ";MS," MINUTOS ";SS;" SEGUNDOS 
175 PR INT" WíüWDESEAS VER LOS DATOS ORDENADOS ? (S/N)" 

180 GET RS : IFR$="" THEN 180 
185 IF RSO"S" THEN55 
130 FOR J=1 TO N 
135 PRINT D<J) 

200 NEXT J 

205 PRINT "PM PULSA UNA TECLA" 

210 GETRS• IF RS="" THEN 210 


ii 




•* 


215 GOTO 5 


55 


r 
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importante, por delante de la veloci¬ 
dad o eficiencia del método. 

EL PROGRAMA PRINCIPAL 

Antes de pasar a explicar cada una 
de las cuatro técnicas, vamos a refe¬ 
rirnos al programa principal. Tiene 
como misión servir de soporte a las 
rutinas correspondientes a las cuatro 
técnicas y se encarga, en primer lugar, 
de crear un conjunto de N datos 
aleatorios (N puede elegirse a volun¬ 
tad), que se almacenan en una matriz 
D (N), estos son los datos a clasificar. 
Después el programa presenta un 
menú, en el que se puede elegir entre 
cualquiera de las cuatro técnicas de 
clasificación. Al elegir una opción se 
produce un salto a la subrutina co¬ 
rrespondiente a dicha opción, de la 
que solo se vuelve al programa prin¬ 
cipal una vez finalizada la clasifica¬ 
ción de los datos. Además, el pro¬ 
grama principal se encarga de medir 
el tiempo transcurrido desde que se 
produce el salto a la subrutina hasta 
que se vuelve de ella, mostrando 
entonces en pantalla, el tiempo em¬ 
pleado por el método. Esta medida del 
tiempo empleado por cada uno de los 
algoritmos, en llevar a cabo la clasifi¬ 
cación, es un aspecto muy interesante 
del programa. Permite hacer ensayos 
con las distintas técnicas y con distin¬ 
to número de datos y ver, en cada 
caso, cual técnica es la más interesan¬ 
te y hacer comparaciones entre ellas. 
En realidad, se trata de un ejemplo de 
experimentación matemática y de 
prueba de modelos con ordenador. 
Además, cualquier otra técnica o 
algoritmo que se desee probar, pue¬ 
de incluirse como subrutina en este 
programa principal. Por último, el 
programa principal ofrece la posibili¬ 
dad de ver los datos una vez que han 
sido ordenados lo que, de ensayarse 
otros algoritmos diferentes de los 
presentados en este artículo, permiti¬ 
rá comprobar que la ordenación de 
los datos se ha llevado a cabo correc¬ 
tamente. 

EL METODO DE LA BURBUJA 

El método de la burbuja es un 
algoritmo de clasificación muy senci¬ 
llo y muy elegante al mismo tiempo. 



Su nombre deriva del hecho de que si 
se observa la tabla o matriz de datos a 
lo largo del proceso de clasificación, 
se podrá comprobar como los núme¬ 
ros más pequeños se desplazan, poco 
a poco, hacia la parte superior de la 
tabla, como si se tratara de burbujas 
en un líquido, mientras que los núme¬ 
ros mayores, más pesados, van hun¬ 
diéndose lentamente pasando a ocu¬ 
par las últimas posiciones en la tabla. 
Parece como si la ordenación se 
produjera espontáneamente, por ra¬ 
zones de densidad y peso de los 
números, casi como algo natural. 


cuando por el contrario, lo más 
natural es el desorden. 

El algoritmo en sí consiste en lo 
siguiente: una tras otra, se van reali¬ 
zando pasadas sobre la tabla de 
datos, de arriba abajo. En cada pasa¬ 
da se trata de comparar cada número 
con el que está inmediatamente deba¬ 
jo de él y actuar con ellos de la 
siguiente forma: si el que está debajo 
es mayor, no hacer nada, pues esa 
pareja de números ya está ordenada, 
el número mayor, el que más pesa 
debajo y el más pequeño encima. Si 
por el contrario el que está debajo es 


1 000 

REM METODO 

DE Lñ BURBUJA 

1005 

rem 

1 0 1 0 

REM 



1015 

PRINT'TIIETO 

IDO DE Lñ : 

BU REI. 

1020 

FOR J=1 TO 

N-l 


1025 

F=0 



1030 

FOR 1=1 TO 

N-J 


1035 

IF D< I >OD< 

I+l> THEN 

1054 

1040 

F=1 



1045 

T=D íI +1 > : :d ( 

I +1 > =D<I) 

:D<i: 

1050 

NEXT I 



1055 

1 l~-4 iL.” |T< 

IF F=0 THEN 
u irv t r 

1 1065 


JL U D U 

1065 

1 ít.-i 1 J 

RETURN 




ii 


2000 REM METODO DE Lñ BURBUJA MODIFICADO 

2005 rem 
2010 rem 

2015 PRINT"ri'IETODO DE LA BURBUJA MODIFICABOPRINT"HESPERA. 

2020 LI~N 

2025 IF LIO THEN 2080 
2030 LI=IHT(LI/2) 

2035 F'=0 

2040 FOR 1=1 TO N-LI 

2045 IF D<I><=D<I+LI> THEN 2060 

2050 F=1 

2055 T=D<I+LI>:D <I+LI>=DCI>:D <I> =T 

2060 NEXT I 

2065 IF F=0 THEN 2025 

2070 GOTO 2035 


II 


:089 RETURN 


Tabla 1. 


EFICIENCIA 

METODO 

COMPLEJIDAD 

POCOS DATOS 

MUCHOS DATOS 

Burbuja 

Muy simple 

Excelente 

Pobre 

Burbuja 

modificado 

Media 

Buena 

Buena 

Inserción 

Muy simple 

Excelente 

Media 

Clasificación 

rápida. 

Grande 

Buena 

Muy buena 
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menor, hay que intercambiar la pare¬ 
ja de números antes de pasar a la 
pareja siguiente. De esta forma, en 
cada pasada se intercambian algunas 
parejas de números, que diremos-que 
han producido una burbuja, mientras 
que otras parejas quedan como esta¬ 
ban. Es fácil ver que en el momento 
en que, en una pasada, no se produz¬ 
ca ninguna burbuja, es porque la taba 
de números ya está ordenada y el 
algoritmo ha terminado con la cla¬ 


sificación. Es así de sencillo. Un 
ejemplo de todo esto puede verse más 
claramente a través de los dibujos de 
la figura 1, donde las burbujas se han 
marcado con círculos y donde la 
clasificación se realiza completamen¬ 
te en 3 pasadas. 

METODO DE LA BURBUJA 
MODIFICADO 

Con el método de la burbuja, y 


dentro de cada pasada de explora¬ 
ción. se lleva a cabo una comparación 
entre números adyacentes, para ver si 
hay que intercambiarlos o no. 

El método de la burbuja modifica¬ 
do hace lo mismo pero de otra forma, 
basándose en una hipótesis muy inte¬ 
resante que dice que es mejor compa¬ 
rar primero números alejados entre sí 
en la tabla, para, si hay que intercam¬ 
biarlos, hacerlos cuanto antes. De 
esta forma, en el método de la burbu¬ 
ja modificado, se establece un “inter¬ 
valo de clasificación”, que no es más 
que la distancia, en la tabla, entre 
números que se van a comparar. En 
una primera pasada esta distancia es 
igual a la mitad de la longitud de la 
tabla, es decir, que si la tabla contiene 
por ejemplo, 100 datos, en la primera 
pasada se lleva a cabo la comparación 
entre datos separados 50 posiciones 
en la tabla. En las sucesivas pasadas 
el intervalo de clasificación se reduce 
cada vez a la mitad, es decir, que en 
nuestro ejemplo de 100 datos, en la 
segunda pasada el intervalo de clasifi¬ 
cación valdría 25 y se llevaría a 
cabo la comparación entre datos se¬ 
parados por 25 posiciones, en la ter¬ 
cera pasada el intervalo valdría 12, en 
la cuarta 6 y así sucesivamente hasta 
que, en la última pasada, el intervalo 
valdría 1, con lo que se haría la 
comparación entre datos adyacentes 
tal y como se hace en cualquiera de 
las pasadas del método de la burbuja. 

¿Cuál es la ventaja de este proceder 
que justifique la mayor complejidad 
del algoritmo? 


Figura 1. 
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Figura 3. 
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de datos 


La verdad es que para un pequeño 
número de datos, este método no 
presenta ninguna ventaja frente al de 
la burbuja, pero cuando el número de 
datos a clasificar crece, las cosas son 
muy diferentes. Si consideramos por 
ejeplo, una tabla con 100 datos y en la 
que, ¿por qué no?, el valor más 
pequeño, que hay que colocar en la 
primera posición de la tabla, se en¬ 
cuentra inicialmente en la última 
posición, es fácil comprobar que, con 
el método de la burbuja hay que 
realizar 99 pasadas sobre los datos, 
mientras que con el método de la 
burbuja modificado, el número de 
pasadas es de 6, independientemente 
de como estuvieran de desordenados 
los datos inicialmente. Para mayor 
número de datos, la diferencia es 
todavía mayor, y queda justificada 
plenamente la mayor complejidad del 
algoritmo, por el ahorro de tiempo 
que supone. Invitamos al lector a que 
lo compruebe por sí mismo. 


EL METODO DE INSERCION 

El método de inserción es sin lugar 
a dudas, el que guarda una mayor 
similitud con el algoritmo que nor¬ 
malmente desarrolla la mente huma¬ 
na, cuando se enfrenta con la tarea de 
tener que clasificar un conjunto de 
datos. Es un algoritmo muy simple de 
programar, muy eficiente para pe¬ 
queñas cantidades de datos, pero no 
demasiado bueno cuando el número 
de los mismos se hace elevado. En 


esencia el algoritmo se desarrolla de 
la siguiente manera: 

En primer lugar, todo el proceso de 
clasificación se lleva a cabo en una 
sola pasada, de arriba abajo, por la 
tabla. En el transcurso de esta pasa¬ 
da, cada número se compara con 
todos los que están por encima de él y 
se inserta en el lugar que le corres¬ 
ponde, debajo de todos los números 
menores que él y por encima de todos 
los que son mayores. Después, se 
coge el número que ocupa la siguiente 
posición y se repite el proceso. De 
esta forma, en cualquier momento, 
todos los números de la tabla por 
encima de la posición que se conside¬ 
ra, están perfectamente ordenados. 
Cuando se llega al último número de 
la tabla, y después de insertarlo en el 
lugar que le corresponde, el proceso 
de clasificación ha terminado y la 
tabla está perfectamente ordenada. 
Todo este proceso queda mucho más 


claro al observar el ejemplo de la 
figura 2 en el que se detallan las 
distintas fases en la clasificación de 
una tabla de 5 elementos. 


EL METODO DE 
CLASIFICACION RAPIDA 

Este método es con mucho el más 
complejo de los métodos que se 
consideran en este artículo, si bien, 
como contrapartida lógica es el más 
rápido de todos ellos. 

El algoritmo consiste, en esencia, 
en dividir la tabla de datos en varios 
subgrupos, a medida que se realiza 
una primera ordenación. Cada uno 
de estos subgrupos se divide nueva¬ 
mente en subgrupos, los cuales se 
vuelven a dividir, y así sucesivamente 
hasta que los subgrupos son lo sufi¬ 
cientemente pequeños como para 
aplicar algo parecido al método de la 
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burbuja, en cada uno de ellos. Duran¬ 
te todo este proceso de división en 
subgrupos, la información sobre don¬ 
de está situado cada subgrupo se 
almacena en una matriz adicional. 
Cada vez que se crea un nuevo 
subgrupo con ciertas condiciones, se 


añade un nuevo elemento a esta 
matriz. Al finalizar la división, se 
empiezan a extraer datos de esta 
matriz auxiliar, en el mismo orden 
como se introdujeron en ella, es decir, 
el primero en entrar es el primero en 
salir, y se procede a ordenar cada uno 


3000 REM METODO DE INSERCION 

3005 rem mm***m*m*\mmm 

3010 REM 

3015 PRINT'THETQDQ DE INSERCION":PRINT"HESPERA." 
3020 FOR J=2 TO N 
3025 T=D<J) 

3038 FOR I=J—1 TO 1 STEP-1 
3035 IF IKI)C=T THEN 3050 
3040 D(I+1)=D(I) 

3045 NEXTI 
3050 D<I+1>=T 
3055 NEXT J 
3060 RETURN 

4000 REM METODO RAPIDO 

4005 rem 

4010 REM 

4015 PRINT"□METODO RAPIDO":PRINT"HESPERA..." 

4020 DIM S<40,2> 

4025 PS=1 

4030 S (DI) = 1 : S (1.«2 > =N 


4035 IF PS=0 THEN4115 


ÜOJ 

4040 

4045 

4050 

4055 

4060 

4065 

4070 

4075 

4080 

4085 

4090 

4095 

4100 

4105 

4110 

4115 


11=8<PS,1>:J J=S<PS,2 >=PS=PS~1 
P=0•I=II:J=JJ 
IF D(IKD(J) THEN4065 
P=l-P 

T=D(I> : D(I> =D(J> : D <J > =T 
IFP-0THEN1=1+1 
IFP=1THENJ=J-1 
IF ICJ THEN4050 
IF I>=JJ THEN 4100 
PS=PS+1 

IF PS>40 THEN F’RINT"HPILA DESBORDADA" : END 
S(PS,1> = I +1:S<PS,2>=JJ 
-T - J = I — 1 

IF JJ>II THEN4045 
GOTO 4035 
RETURN 


10 rem mmmmm*M**Mm**M*mm 

15 REM * * 

20 REM * CLASIFICACION ALFABETICA * 
25 REM % * 

30 rem mmmMmmm*m***+m*m** 

35 REM 

40 PRI NT "CLASIFICACION ALFABETICA" 
45 INPUT"HKNO- DE FRASES";N 
50 DIM A$<N> 

55 F'RINT"HMESCRIBA CADA FRASE" 

60 FOR J=1 TO N 


60 
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de los subgrupos. En el momento ei 
que esta matriz auxiliar quede vací; 
quiere decir, que se ha terminado di 
ordenar el último subgrupo, con 1< 
que el algoritmo termina. 

Durante todo el proceso, el algo-] 
ritmo utiliza dos punteros o indicad< 
res de posición para moverse por 1 í 
matriz. Los dos valores señalados po: 
estos punteros se intercambian si ei 
que se encuentra más arriba en k 
tabla es mayor que el que está máí 
abajo, dejándose como estaban ei 
caso contrario. Uno de los punteros, 
que se denomina pivote, señaa siem¬ 
pre hacia el elemento que ocupaba k 
primera posición de la matriz, mien-l 
tras que el otro puntero se mueve por| 
la matriz hacia el pivote. Cuand< 
ambos se encuentran, la matriz 
divide en dos subgrupos y el proces< 
comienza de nuevo en cada subgrupo, 
almacenándose la información nece¬ 
saria en la matriz auxiliar. En caso d; 
trabajar con un número muy elevadi 
de datos, puede ocurrir que la matrí; 
auxiliar se quede pequeña, por lo que 
la rutina lleva previsto un mensaje de 
desbordamiento de la matriz auxiliar, 
para esta eventualidad. Para aclarar 
un poco las ideas, hemos preparado e. 
dibujo de la figura 3 donde se detalla 
el proceso de subdivisión en sub-| 
grupos. 


CLASIFICACION ALFABETICA 

Hasta ahora sólo hemos hablada 
de la clasificación u ordenación de) 
valores numéricos, pasando por alt< 
el importante aspecto de la clasifica-] 
ción alfabética de palabras, frases 
textos. Sin embargo, en este apartad* 
es válido todo lo dicho hasta ahora, 
los métodos de la burbuja, burbuj. 
modificado, inserción v clasificaciói 
rápida son todos ellos válidos, con k 
única diferencia de que tanto la ma-| 
tríz donde se almacean los datos, 
como los propios datos, dejan de ser¡ 
valores numéricos y pasan a se: 
cadenas de caracteres, por lo que pai 
trabajar con ellos es necesario añadir] 
el símbolo $ a final de todas la: 
variables utilizadas en el programa 
La razón de que esto sea así de] 

NUMERO 















de datos 


sencillo y no sea necesario realizar 
más modificaciones, estriba en que el 
BASIC de Commodore considera una 


cadena de caracteres mayor que otra, 
cuando va después en orden alabéti- 
co. Por ejemplo, la cadena A$ = 


65 

70 

cr 

r J 
80 
y 5 
90 
95 
100 
105 
110 
115 


120 
125 
130 
135 
140 


INPUT 
NEXT J 

FÜP J=2 Tü N 
T$=ñ$CT> 

FÜR K=J~1 TO 1 STEP-J 
IF fi$(K'KT$ THEN 1R5 
ñ$CK+l 
NEXT K 
fi$<K+l >-TI¬ 
ÑE XT J 

PRI NT 11 HWLISTR ORDENADA»" 
FOR J=1 Tü N 
PRINT 
NEXT J 

PRINT"MPULSfi ESPRCIO" 

ÜET K$ •' IF K$=" " THEN 4R 
CLR•GOTO140 


“BUENO' 1 es “mayor 11 que la cadena 
B$ = “BUENA 11 ya que va después en 
orden alfabético, pero es “menor 11 
que la cadena CS = “BUENOS 11 . Esta 
propiedad permite utilizar cualquier 
algoritmo de clasificación tanto para 
valores numéricos como para cadenas 
de caracteres, sin más que sustituir las 
variables numéricas que manejan da¬ 
tos numéricos, por variables de carac¬ 
teres terminadas en S. También hay 
que tener en cuenta que la matriz 
donde se almacenan los datos deja de 
ser una matriz numérica y que tam¬ 
bién hay que añadirle al final el ca¬ 
rácter $. 

Como ejemplo de todo esto presen¬ 
tamos el programa CLASIFICA¬ 
CION ALFABETICA que utiliza el 
método de inserción para ordenar 
alfabéticamente un conjunto de ca¬ 
denas de caracteres. 
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C/BRAVO MURILLO, 377 

en la plaza de castilla 
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Es posible crear visualizaciones 
tremendamente buenas utilizando 
únicamente bloques gráficos predefi¬ 
nidos, una característica de la que 
disfrutan también los ordenadores de 
Commodore. Esto es sufíciene durante 
algún tiempo. Sin embargo, llega el 
momento en el que deseamos ampliar 
los horizontes de las posibilidades 
gráficas de nuestro ordenador. Lo¬ 
grar definir caracteres propios es una 
forma de conseguirlo. 

Tanto el Vic 20 como el CBM 64 
llevan incorporado, en su memoria 
ROM, un conjunto de patrones en 
forma de bits que conforman los 
caracteres visualizables, que por otra 
parte no pueden ser alterados. No 
obstante, al contrario de lo que ocu¬ 
rre con otros sistemas, permiten de¬ 
positar copia de esta información en 
la RAM, lo cual posibilita que los 
caracteres puedan ser alterados. 

Los principios de este método son 
idénticos tanto para el 64 como para 
el Vic 20. 

Para comenzar hay que advertirle 
al ordenador que consiga la informa¬ 
ción de video a partir de la RAM, en 
lugar de la ROM. Cargando la direc¬ 
ción decimal de memoria 36869, en el 
Vic 20, o la 53272, en el 64 con un 
determinado número mediante un 
POKE, se logra este fin. El número 
dependerá de en que lugar de la RAM 
se desee almacenar los caracteres. 

A continuación se debe proporcio¬ 


nar la información a la máquina. Se 
vuelve a acometer la tarea utilizando 
POKE, para depositar información 
en determinadas posiciones de la 
memoria. Si deseamos mantener de¬ 
terminados caracteres previamente 
existentes (por ejemplo, las letras del 
alfabeto), simplemente hay que co¬ 
piarlos a partir de la ROM. EL 
cuadro 1 muestra cómo encontrarlo. 

La creación de nuevos caracteres 
requiere en primer lugar que sean 
diseñados sobre papel, • calculando 
después sus valores que los definen. 
La explicación de cómo se acomete 
esta parte queda mejor explicada en el 
cuadro 2. 

Dada la pequeña cantidad de me¬ 
moria que tiene el Vic sin expansión, 
merece la pena tener en cuenta que 
cuando se envían caracteres a la 
RAM se está consumiendo espacio 
que podría ser utilizado por un pro¬ 
grama. 

Cada carácter del juego completo 
necesita ocho bytes de memoria para 
quedar definido. El juego completo 
viene a ocupar unos cuatro Kbytes. 

Se podría derivar alguna complica¬ 
ción del hecho que tanto el Video 
Interface Chip (VIC) como el VIC II, 
pueden solamente “ver” 16 Kbytes de 
la memoria al mismo tiempo, por lo 
que es necesario mantener la memo¬ 
ria destinada al contenido de la pan¬ 
talla y el juego de caracteres dentro 
del mismo bloque de 16 Kbytes. En 


las guías de referencia para el pro¬ 
gramador se puede ampliar esta in¬ 
formación. 


MODOS GRAFICOS 

Los modelos Vic 20 y CBM 64 
ofrecen una amplia variedad de mo¬ 
dos gráficos, siendo más completa la 
correspondiente al segundo. El modo 
que vemos más a menudo es el texto, 
por ser el estándar que aparece cada 
vez que conectamos el ordenador. 
Esto viene a significar que podemos 
acceder directamente a todos los ca¬ 
racteres impresos en el teclado, por 
medio de las teclas SHIFT y CTRL. 

Se puede visualizar texto en cual¬ 
quiera de los ocho colores de que 
dispone el Vic 20, o de los 16 del CBM 
64. 

Utilizando POKE en una de las 
localizaciones del VIC, se puede en¬ 
trar en el modo multicolor, lo cual 
nos permite disponer de más de dos 
colores dentro de la celdilla corres¬ 
pondiente a cada carácter (fondo y 
primer plano). En este modo pode¬ 
mos tener reborde, fondo, primer 
plano y colores auxiliares. 

El incremento en la resolución en 
colores se consigue a costa de la 
resolución en pixels (cada punto in¬ 
dependiente de otro que aparece en la 
pantalla). Esto se debe a que cada 
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punto pasa a tener el doble de anchu¬ 
ra que previamente. 

El modo multicolor cobra su razón 
de ser cuando se utilizan caracteres 
propios. 

El CBM 64 dispone de otro modo 
más, el modo fondo extendido. Con 
él se puede establecer individualmen¬ 
te el color de fondo de cada carácter, 
además de tener el color de pantalla 
normal. 


COLOR 

El color puede añadir mucho atrac- 
tivo a los programas, tanto si son 
uegos como algún otro software de 
índole más práctica. Por ejemplo. 


podemos emplear diferentes colores 
para resaltar el texto en bases de 
datos o tratamientos de texto. 

Se podría alterar el color del re¬ 
borde para significar algo al usuario, 
por ejemplo verde para las entradas 
de datos del usuario, azul para indi¬ 
car que el ordenador está ocupado, o 
rojo como advertencia de que se está 
escribiendo en la cinta o el diskette y 
podrían quedar inutilizados. 

Además de la pantalla por mapa de 
memoria (significa que cada posición 
destinada a caracteres tiene su homo- 
loga en una dirección de memoria), el 
Vic 20 y el CBM 64 tienen pantallas 
por mapa de color. En el Vic 20 ésta 
comienza en la dirección 38400, en el 
modelo sin expansión, y en la 37888 


en la versión expandida. En el 64, la 
primer localización es la 55296. 

Introduciendo un número entre 
0 y 8 en el Vic 20, o entre el 
0 y el 16 en el CBM 64, mediante 
POKE dentro de la memoria del color 
es posible controlar directamente el 
color de cualquiera de los caracteres 
que aparecen en una posición de la 
pantalla. 

El movimiento de objetos sobre la 
superficie de la pantalla en color es 
sencillo, aunque algo más laborioso. 
L.os números clave a utilizar son el 
comienzo de la memoria destinada a 
la pantalla, el comienzo de la memo¬ 
ria destinada al color, la longitud de 
la línea y la longitud de la página. 

Introducir un objeto en la memoria 
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Cuadro 2. Creación de caracteres propios. 

Este invasor marciano puede ser dibujado en un papel 
cuadriculado en formato de 8 X 8 puntos. Para determinar el 
valor de cada byte que compone el carácter, solamente hay que 
sumar al total el valor correspondiente a cada asterisco en cada 
línea. Al final obtenemos ocho números comprendidos entre 
cero (ningún punto en la línea) y 255 (todos los puntos de la 
línea). Si se introdujeran estos valores en la memoria mediante 
POKE, como segundo carácter propio, el invasor aparecería en 
la pantalla cada vez que se presione la tecla A (el primero sería 

@). 



V i c20 

CBM64 

May u.scu. 1 as . 9r af i eos 

32768 

53248 

May u.scu. las. 9raf i eos en 

inverso 33792 

54272 

M a y u. s cu. 1 as y m i n u. s c u. 1 a s 

• 34816 

55296 

Mayúsculas y minúsculas 

en inverso 35840 

56328 


la derecha lo desplazará al extremo 
izquierdo, pero una línea más abajo. 
Esta característica llamada enrolla¬ 
miento podría ser útil en algún caso. 


ALTA RESOLUCION 

Aunque el tipo de animación pre¬ 
viamente descrito es simple y puede 
ser efectivo, tiene un pequeño defec¬ 
to, que es que la unidad de distancia 
más pequeña utilizable es la corres¬ 
pondiente al tamaño de un carácter, 
es decir, ocho puntos de una vez. La 
solución se encuentra en los gráficos 
de alta resolución, lo cual implica que 
la mínima distancia para el despla¬ 
zamiento es de un punto. La utili¬ 
zación de este modo nos permite 
conseguir visualizaciones con alto 
grado de detalle y movimiento más 
elegante. 

Existen dos obstáculos. El primero 
es que este tipo de animación consu¬ 
me grandes cantidades de memoria y, 
el segundo, es que Commodore no ha 
incluido comandos en el BASIC de 
ninguno de los dos ordenadores que 
permitan la utilización directa de este 
método. 

Encontrar la razón del enorme 
consumo de cantidad de memoria 
requerida es una simple cuestión de 
matemáticas. Se necesita un byte para 
visualizar una línea compuesta por 
ocho puntos. Puesto que el Vic 20 
tiene un formato de pantalla de 22 
líneas de ancho y 184 líneas de 
“profundidad”, se necesitan unos 
4 Kbytes de memoria para que la 
pantalla quede totalmente com¬ 
prendida en un mapa de memoria. 
Esta cifra se incrementa a 8 Kby¬ 
tes con el 64, por disponer de una 
pantalla de mayor resolución. 

El segundo problema puede ser 
solventado en una de dos maneras 
posibles. Podemos escribir programas 
propios para obtener visualizaciones 
en alta resolución, o podríamos ad- 


Cuadro 1. Localización de los juegos de caracteres en la ROM. 


destinada a la pantalla, utilizando 
POKE más la longitud de la línea, 
hará que el objeto aparezca en ella. 
Para crear el efecto de movimiento, 
simplemente habrá que dejar que el 
carácter aparezca, esperar un ratito, 
hacerlo desaparecer visualmente y 
después volverlo a poner en otro 
lugar. 

Para hacerlo que baje una línea a 
partir de la posición inicial requiere 
que se sume la longitud de una línea a 
esa posición. Para moverlo hacia 
arriba se sustrae la longitud de la 
línea. Moverlo a la izquierda o la 


derecha es necesario sumar o restar 
uno. El movimiento en diagonal son 
combinaciones sencillas de estas cua¬ 
tro posibilidades. 

Algo a tener en cuenta: si los 
caracteres están en el extremo dere¬ 
cho de la pantalla, moverlo otra vez a 
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quirir uno de esos programas de 
ayuda a la elaboración de gráficos. 
Los gráficos pueden ser confecciona¬ 
dos a partir del BASIC, pero la 
principal dificultad se centrará en la 
velocidad. La alta resolución implica 
cientos de cálculos repetitivos, que 
serán extremadamente lentos en el 
caso del BASIC, por lo que la nece¬ 
sidad real se centra en el código 
máquina. 

Los gráficos son marginalmente 
más sencillos en el CBM 64 por dos 
razones principales: la primera es que 
internamente dispone de facilidades 
orientadas a la utilización de la alta 
resolución, por las cuales podemos 
establecer nuestras propias necesida¬ 
des de visualización. Segunda, si lo 
que necesitamos es un “ scrolling fi¬ 
no" (desplazamiento del contenido de 
la pantalla en cualquier sentido, co¬ 
mo cuando las líneas de texto desa¬ 
parecen por arriba apareciendo nue¬ 
vas por debajo — scrolling horizon¬ 
tal— de manera cuasi continua a la 
vista). Pues bien, este tipo de scro¬ 
lling, destinado a la animación, se 
consigue mediante POKE aplicados a 
un par de registros internos y una 
corta rutina en código máquina. 


53248. 

53249. 

53250- 

53263. 


53264. 

53265. 

53266. 

53267. 

53268. 

53269. 

53270. 

53271. 

53272. 


53273. 

53274. 

53275. 


53276. 

53277. 

53278. 

53279. 

53280. 

53281. 

53282. 

53283. 

53284. 

53285. 

53286. 


53287- 

53294. 


Posición horizontal del'SPritc 0. 

Posiscion vertical del SPrite.0. 

I9u.a que los anteriores, Pero Para los 
SPrites 1 a 7. 

Posición horizontal del SPrite mayor de 
255 <ver la nota). 

Registro de scrollin9 vertical. 

Re9istto de barrido. 

Posición horizontal del laPiz oPtico. 
Posición vertical del laPiz oPtico. 
fictiva y desactiva los SPrites. 

Re9istro de scroilin9 horizontal. 

Expande los SPrites en sentido vertical. 

La mitad alta del byte establece lá direc¬ 
ción de la Pantalla. La mitad baja esta¬ 
blece la dirección de la memoria de carac¬ 
teres. 

Re9istro de Petición de interrupción. 
Re9istro de mascaras de interrupción. 
Establece la Prioridad entre SPrites y 
fondo. 

Selecciona SPrites multicolor. 

Expande los SPrites horizontalmente. 
Detecta la colisión entre SPrites. 

Detecta la colisión entre SPrite y fondo. 
Establece el color del reborde. 

Establece el color de la Pantalla. 

Primer color del fondo. 

Se9undo color del fondo. 

Tercer color del fondo. 

Color cero del SPrite, en modo multicolor. 
Color uno del SPrite, en modo multicolor. 

Establece el color de los SPrites cero a 
siete. 


SPRITES 


Cuadro 4. Registros del chip VIC II del CBM 64. 


A ota' Debido a que el máximo valor de cualquier registro 
sólo puede ser 255, y las coordenadas^de la pantalla en alta 
resolución pueden llegar hasta 320, se requiere un registro 
adicional para mantener la posición horizontal de los Sprites. 
Estableciendo el bit relcvante.de este registro, el VIC II cuenta 
las posiciones por encima de 255 como posición cero en 
adelante. 


Los Sprites son esos pequeños 
duendes que podemos definir en la 
pantalla y que pueden moverse 
haciendo honor a su nombre. Este es 
el punto donde se divorcian las capa¬ 
cidades del Vic 20 y el CBM 64. 
Desafortunadamente para los usua¬ 
rios del Vic no son tan simples para 
este modelo. 

En esencia los Sprites no son mu¬ 
cha cosa más que grandes caracteres 
definidos por el usuario. Es más, son 
creados exactamente de la misma 
manera. 

La inmensa utilidad de los Sprites 
rara el programador de gráficos se 


debe a las capacidades del chip VIC 
II. Una serie de registros nos permite 
efectuar un scrolling fino (coptrario a 
scrolling discreto, o a saltos) del Spri- 
te en cualquier dirección, simplemen¬ 
te utilizando POKE. 

Podemos cambiar de color, em¬ 
plear el modo multicolor, detectar 
colosiones entre Sprites o establecer 


prioridades para crear la ilusión de 
cuál queda en primer término con 
respecto a los demás. 

Todas estas características hacen 
que la creación de visualizaciones 
atractivas sea extremadamente senci¬ 
lla y muy rápida. 

Simultáneamente, es posible ejercer 
control sobre hasta ocho Sprites , 

















teniendo cada uno su propio color y 
recorriendo cada uno su camino por 
la pantalla de modo independiente a 
los demás. 

Las técnicas para todo este control 
salen fuera del objetivo del presente 
artículo. Por necesitar de más espa¬ 
cio, lo trataremos más adelante en 
sucesivos números en cada uno de sus 
detalles. De todas maneras existen 
libros excelentes, aunque la mayoría 
en inglés, que tratan el tema con gran 
dedicación. 

Cuando se comprende con exten¬ 
sión el funcionamiento y control de 
los Sprites, despegarse del teclado del 
ordenador exige un esfuerzo titánico. 


Cuadro 3. Localizaciones del 
chip VIC para el Vic 20. 


36864. 

Los bits Ü a 6 controlan si centrado ho¬ 
rizontal de la ima9en. El bit 7 estable¬ 
ce el entrelazado de lineas del barrido 
de la ima9en en Pantalla. 

36865. 

Controla el centrado vertical de la ima¬ 
gen. 

36866. 

Los bits 0 a 6 determinan el numero de 
columnas en la Pantalla. El bit 7 es 

Parte de la dirección de la matriz de 
video. 

36867. 

Los bits 1 a 6 determinan el numero de 
filas en la Pantalla. El bit 0 establece 
si los caracteres son normales o de do¬ 
ble altura. 

36868. 

Registro Para el barrido en la Pantalla 
del televisor. 

36869. 

Los bits 0 a 3 establecen el comienzo de 
la memoria de caracteres. Los bits 4 a 7 
son el resto de las direcciones de la ma¬ 
triz de video. 
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CUANDO SE TIENE UN COMMODORE 64 

ES MUY DIFICIL SER MODESTO 








Cuando se tiene un ordenador personal 
con 64K de memoria, una magnífica resolución, 

16 colores, efectos tridimensionales 
con "sprites", un sonido equivalente 
al de un sintetizados un teclado profesional 
con 62 caracteres gráficos, 
toda una amplia gama de periféricos 
profesionales, la más completa serie 



de programas educativos, procesionales 
y de video-juegos...; en resumen, cuando se 
tiene un ordenador persona! como no existe 
ningún otro en el mercado y el más vendido 
mundialmente, cuando se tiene 

el Commodore 64 es muy difícil mostrarlo 
sin que el orgu! o se te note. 


EL ORDENADOR PERSONAL DE LA FAMIUA MAS POTENTE 

- Sistemas de gestión profesionales senes 8000 Y 700. - Ordenado' portá: SX 64. 
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